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PREFACE 


This  study  is  a  technical  manual  describing  the  operation  of 
a  quantitative  computer  model  which  simulates  the  Canada  Pension  Plan. 
The  Ontario  Government  has  developed  this  model,  called  PENSIM,  in 
order  to  examine  in  depth  the  implications  of  alternative  proposals 
for  amending  the  Plan  with  respect  to  contributions,  benefits  and 
fund  levels  .  The  model  has  the  capacity  to  test  quickly  a  wide 
range  of  alternative  amendments  to  the  CPP ,  including  the  proposals 
advanced  by  the  federal  government  in  the  1970  white  paper.  Income 
Security  for  Canadians.  In  this  way,  it  can  contribute  significantly 
to  the  achievement  of  a  federal-provincial  consensus  on  how  the 
Canada  Pension  Plan  should  be  restructured  for  the  future. 

The  development  of  the  PENSIM  system  and  preparation  of  this 
study  was  undertaken  in  the  Taxation  and  Fiscal  Policy  Branch  of  the 
Ministry  of  Treasury,  Economics  and  Intergovernmental  Affairs.  We 
wish  to  acknowledge  the  cooperation  of  officials  in  the  federal 
Department  of  Insurance,  who  made  available  the  actuarial  data 
necessary  to  construct  the  simulation  model. 
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I  Introduction 


The  1970  federal  white  paper,  Income  Security  for  Canadians, 
set  out  proposals  for  amending  the  Canada  Pension  Plan.x  These 
proposals  involve  new  contribution  levels  and  revised  benefit  streams, 
hence  would  have  a  major  impact  both  on  taxpayers  and  pension  recip¬ 
ients  and  on  the  future  size  of  the  CPP  fund.  It  is  of  little  value 
for  the  provinces  to  discuss  these  proposed  CPP  amendments  or  alter¬ 
native  amendments  with  the  federal  government  without  having  a 
capacity  to  quantify  and  assess  the  implications  of  changes  on  the 
future  operation  of  the  Plan.  Accordingly,  the  Ontario  Government  has 
developed  a  quantitative  computer  model,  called  PENSIM,  to  test  the 
implications  on  contributions,  benefits  and  fund  levels  of  a  broad 
range  of  alternative  amendments  to  the  CPP. 

The  purpose  of  this  study  is  to  set  out  in  detail  the  design 

and  operational  dimensions  of  this  pension  simulator  system.  PENSIM 

uses  a  methodology  which  is  similar  to  that  employed  by  the  federal 
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Department  of  Insurance  but  in  addition  provides  great  speed  and 
flexibility  in  testing  alternatives  other  than  those  advanced  by 
the  federal  government.  In  Ontario’s  view  it  is  necessary  to  go 
beyond  the  scope  of  testing  only  the  federally  proposed  amendments. 
Rather,  a  comprehensive  approach  should  be  followed  which  reviews 
a  wide  range  of  alternatives.  PENSIM  provides  a  common  vehicle  which 
can  be  used  by  all  governments  for  testing  and  assessing  policy 
alternatives  so  that  the  final  amendments  to  the  CPP  produce  the 
best  results  in  terms  of  benefits,  contributions  and  funding  in 
the  years  ahead. 


1.  Hon.  John  Munro,  Income  Security  for  Canadians  (Ottawa:  Department 
of  National  Health  and  Welfare,  1970) 

2.  Department  of  Insurance,  Canada  Pension  Plan:  Actuarial  Report  as 
at  December  31,  1969. 


II  METHODOLOGY 


This  technical  manual  serves  as  a  guide  for  the  use  of 
PENSIM.  It  is  not  intended  to  be  a  complete  description  of  the 
methodology  of  forecasting  CPP  contribution  and  benefit  levels. 
Rather,  its  purpose  is  to  provide  sufficient  information  for  the 
user  to  fully  utilize  the  model  to  test  policy  variables. 

PENSIM  is  comprised  of  ten  interactive  programs.  Each 
program  in  the  system  inputs  the  results  of  its  computations  into 
one  or  more  other  programs.  Due  to  the  nature  of  the  Canada 
Pension  Plan,  it  is  more  efficient  to  segment  the  model  into  ten 
programs  rather  than  using  one  large  program.  This  method  facil¬ 
itates  a  saving  of  both  time  and  expense. 
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As  outlined  in  the  PENSIM  flow  chart,  each  program  is 
categorized  by  the  level  in  which  it  operates.  Each  level  delin¬ 
eates  the  amount  of  interaction  with  other  programs.  A  Level  1 
program  interacts  with  almost  every  other  program  on  a  higher 
level;  a  Level  2  program  interacts  with  higher  level  programs  but 
not  with  lower  level  programs. 

If  options  are  being  tested  that  involve  high  level 
programs,  it  is  not  necessary  to  refer  to  lower  level  programs  in 
the  computation.  For  example,  a  change  in  the  disability  flat 
rate  is  computed  by  a  Level  A  program.  Interaction  and  consequently, 
cost,  are  minimized  since  only  two  programs  must  be  run  to  effect 
the  change:  DISBN.7  and  FUND. 9.  If  an  option  is  being  tested 
that  involves  a  low  level  program,  a  greater  number  of  programs 
must  be  used.  For  example,  if  a  new  economic  assumption  is  tested, 
then  all  programs  would  come  into  use  to  test  the  implications. 

The  advantage  of  this  method  of  construction  over  a  simple 
program  is  that  is  is  not  necessary  to  run  all  the  programs  in  order 
to  test  a  change  in  certain  variables.  The  segmented  programming 
of  PENSIM  also  gives  faster  turnaround.  The  entire  PENSIM  model 


3.  See  page  5. 
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can  be  run  in  less  than  fifteen  minutes  and  no  program  uses  more  than 
24K  of  octal  core. 

The  last  program  in  the  PENSIM  model ,  CPPBN.iQ,  is  ancillary 
to  the  first  nine  programs.  It  does  not  affect  in  any  way  the  output 
of  the  final  program  FUND. 9.  It  is  used  to  calculate  the  monthly 
pensions  for  each  type  of  benefit  to  correspond  with  the  options  being 
tested. 


The  methodology  Incorporated  in  PENSIM  is  virtually  identi¬ 
cal  to  that  developed  by  the  Department  of  Insurance.  Where  possible, 
advantage  was  taken  of  the  computer's  speed  and  efficiency  to  improve 
the  model  and  thus  PENSIM  works  on  a  more  disaggregated  framework 
than  the  Department  of  Insurance  method.  Instead  of  computing  esti¬ 
mates  on  a  five-year  basis,  they  are  computed  on  an  annual  basis  and 
in  some  cases,  age  groups  are  disaggregated.  These  changes  do  not 
substantially  Improve  results  but  they  do  permit  closer  inspection  of 
intermediate  computations. 

One  improvement  does  make  some  change  in  the  results.  When 
calculating  modified/modified  average  earnings,  interpolations  are 
made  from  a  non-linear  equation.  PENSIM  uses  a  mathematical  tech¬ 
nique  to  produce  the  equation  and  interpolate  the  values  which  results 
in  more  accurate  computations  than  those  employed  by  the  Department 
of  Insurance.  However,  these  differences  are  barely  visible  in  the 
final  calculations. 

The  PENSIM  model  is  written  in  standard  Fortran  IV  and  it 
is  currently  running  on  a  PDP-10  computer.  The  programs  are  all  tele¬ 
type  interactive  and  require  responses  by  the  user  before  they  will 
operate.  If  PENSIM  is  to  run  on  a  non-interactive  system  or  a  com¬ 
puter  other  than  the  PDP-10,  a  number  of  changes  would  need  to  be  made 
for  compatibility.  For  example,  the  PDP-10  is  an  octal  machine  and 
requires  no  zeroing  of  arrays  before  execution.  However,  the  IBM  360  or 
370  is  a  hexidecimal  machine  and  requires  all  the  null  arrays  to  be 
zeroed  before  execution. 


-  4  - 

The  remainder  of  this  technical  manual  describes  the  opera¬ 
tion  of  PENSIM.  Each  program  is  a  self-contained  chapter  and  listings 
of  the  programs  are  found  in  the  Appendix. 
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A.  INTRODUCTION 


Program  POP.l  is  designed  to  interpolate  population 
statistics  between  five-year  intervals  using  the  Lagrangean  poly¬ 
nomial  technique.  The  Department  of  Insurance  provided  population 
data  for  the  years  1966,  1970,  1975,  1980,  ...,  2025.  This  program 
is  specifically  designed  to  interpolate  population  figures  between 
these  intervals. 

B.  VECTORS  AND  MATRICES 

W  -  contains  the  interpolating  weights  calculated  in  the 
program. 

KSUB  -  is  a  vector  which  supplies  the  appropriate  subscript 
for  the  vector  NO. 

FAC  -  contains  the  calculated  denominator  that  is  used  to 
compute  the  weights. 

XNUM  -  contains  the  calculated  numerator  that  is  used  to 
compute  the  weights. 

NO  -  supplies  the  interpolation  reference  points  for  the 
calculation  of  the  values  that  are  stored  in  FAC  and 
XNUM. 

POPM  -  input  vector  of  male  population  data. 

POPF  -  input  vector  of  female  population  data. 

POP  -  interpolated  population  output  data. 

C.  INPUT  FILES  AND  DATA  STATEMENTS 


Input  files  PRJM1  and  PRJF1  contain  the  population 
statistics  for  the  nineteen  age  classes  for  1966  for  males  and 
females  respectively. 

PRJM  and  PRJF  contain  the  remaining  population  statistics 
for  each  five-year  interval  from  1970  through  to  2025  for  each  of 
the  nineteen  age  classes  for  males  and  females. 


f  m 


8 


The  nineteen  age  groups  are: 


0 

— 

4 

50 

- 

54 

5 

— 

9 

55 

- 

59 

10 

— 

14 

60 

- 

64 

15 

— 

19 

65 

- 

69 

20 

— 

24 

70 

- 

74 

25 

— 

29 

75 

- 

79 

30 

- 

34 

80 

- 

84 

35 

- 

39 

85 

- 

89 

40 

- 

44 

90 

+ 

45 

— 

49 

D.  METHODOLOGY 

The  weights  used  in  calculating  the  interpolated  values 
are  derived  by  the  Lagrangean  polynomial  method.  The  w.  weights 


are  computed  by 


n  (t  -  t±) 
wj(t)=  n  (t.  -  ti) 


i  ^  j;  j  =  i»2. 


n  =  1 


or  in  longer  form 

(t  -  t2)(t  -  t3)(t  -  t4)  ...  (t  -  tn+  x) 

W1  C  (t3  -  t2)(t1  -  t3)(t1  -  t^)  ...  (t1  -  +  x) 

w  (t)=  (t  ~  t1)(t  ~  t3)(t  t4)  ...  (t  -  tfl  +  ±) 

(t2  -  t1)(t2  -  t3)(t2  -  t^)  ...  (t2  -  tn  +  x) 


wn  +  l(t)  = 


(t  -  t;[)(t  -  t2)(t  -  t3)  ...  (t  ~  tn) 


(t  ,  -  -  t.)(t  ,  -  ~  t0)(t  ,  .  -  t0)  ...  (t  -  t  ) 

n+1  l  n+1  2  n+l  3  n+1  n 


In  the  program  four  weights  are  calculated  over  a  fifteen- 
year  interval.  There  are  four  of  these  intervals  in  the  sixty- 
year  time  horizon  of  the  data.  The  second,  third  and  fourth 
intervals  all  have  the  same  weights.  The  weights  in  the  first 
interval  are  slightly  different  due  to  the  fact  that  this  interval 
contains  fourteen  years  rather  than  fifteen.  The  program  has  been 
written  to  handle  this  problem. 
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The  calculation  of  the  first  set  of  weights  is  set  out 

(t  -  5){t  -  10)  (t  -  15) 

(1  -  5)  (1  -  10)  (1  -  15) 

(t  -  l)(t  -  10)  (t  -  15) 

(5  -  1)(5  -  10)  (5  -  15) 

(t  -  l)(t  -  5)  (t  -  15) 

(10  -  1)(10  -  5) (10  -  15) 

-  (t  -  l)(t  -  5)  (t  -  10) 

(15  -  1)  (15  -  5)  (15  -  10) 

The  expression  to  calculate  the  population  statistic  is 
4 

P  =  E  VJ  X 

c  j-i  i  q 


where  the  X  refer  to 

q 

X  1966 

X5  1970 

xio  1975 

X  .  1980 

•  • 

•  • 

•  © 

X,A  2025 

60 

An  interpolated  value  in  year  t  in  the  first  interval 
would  be  calculated  by 

Pt  ‘  W1X1  +  W2  X5  +  W3  X10  +  W4  hs 

The  vector  NO  (24)  contains  the  reference  points  for  the 
interpolation.  Thus,  the  first  six  numbers  in  this  vector  are  5, 

10,  15,  1,  10,  15  which  correspond  with  the  values  to  calculate 

and  W^.  For  the  first  fifteen-year  interval  there  are  12  points, 
4  groups  of  3  each,  because  the  program  uses  a  four  point  inter¬ 
polation  and  each  weight  uses  three  reference  years.  The  second 
block  of  twelve  numbers  in  N0(24)  refers  to  the  second  fifteen-year 


j  -  1,  2,  3,  4 


(  1. 

5, 

10, 

15 

>15, 

20, 

25, 

30 

/  30, 

35, 

40, 

45 

V  45 , 

50, 

55, 

60 

below. 


w. 


w. 


w. 


w. 
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interval.  Since  the  weights  are  identical  for  all  intervals  other 
than  the  first,  it  is  not  necessary  to  calculate  them. 

The  vector  KSUB(8)  contains  the  appropriate  subscripts 
to  reference  NO (24)  in  order  to  make  the  interpolation  work. 

E.  OUTPUT  FILES 

P0P.1  produces  one  output  file  named  ONE.  This  file 
contains  all  the  population  statistics  for  Canada  less  Quebec  for 
the  years  1966  to  2025.  A  complete  description  can  be  found  in 
chapter  XIII. 

F.  NOTES 

Problems  will  be  encountered  in  the  use  of  this  program 
if  the  user  is  attempting  to  interpolate  population  statistics 
different  from  those  that  exist  in  files  PRJM1,  PRJF1,  PRJM,  and 
PRJF.  Provincial  population  statistics  can  be  used  but  care  must 
be  taken. 

As  the  program  is  written,  the  X^'s  must  correspond  to 
the  years  as  outlined  in  the  methodology.  In  addition,  the  pop¬ 
ulation  statistics  must  correspond  to  the  fifteen-year  intervals. 
For  example,  assume  data  exist  for  the  years  1966,  1970,  1975, 

1980,  1985,  and  1990.  Any  interpolated  values  in  the  first 
interval  1966-1980  will  be  correct.  However,  if  the  user  inter¬ 
polates  a  value  for  1986,  the  result  will  be  incorrect.  The 
problem  occurs  because  there  is  not  enough  data  to  supply  all  the 
reference  points  for  the  second  interval.  An  interpolated  value 
for  1986  not  only  depends  on  values  for  1980,  1985  and  1990  but 
also  1995.  If  there  is  no  value  for  1995,  then  results  will  be 
nonsensical. 

It  is  possible  to  interpolate  correct  values  without 
having  data  to  2025  but  it  is  necessary  to  have  complete  intervals. 
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IV  INDEX* 2 


A.  INTRODUCTION 

Program  INDEX. 2  projects  the  pension  index  and  YMPE 
levels  used  in  the  PENSXM  model.  The  calculation  of  the  pension 
index  is  based  upon  section  20  of  the  Canada  Pension  Plan  and  the 
program  will  generate  values  up  to  the  year  2025. 

Similarly,  the  program  calculates  the  earnings  index 
for  1975-2025  under  the  provisions  of  the  Plan  and  uses  this  index 
to  produce  the  YMPE's  for  the  time  horizon  based  upon  the  assump¬ 
tion  being  tested. 

The  user  initializes  the  program  from  the  terminal  and 
inputs  the  variables  he  wants  to  change  (see  section  E). 

The  actual  data  for  1966-1969  Is  used  as  the  basis 
for  future  projections  and  this  information  is  fixed  within  the 
program. 


B.  VECTORS  AND  MATRICES 


AVINC  -  this  vector  lists  the  annual  increase  in  average 
earnings  used  in  the  calculation  of  the  average 
earnings  levels  each  year  and  thus  the  earnings 
index  for  each  year  1975-2025. 

AVERN  -  this  vector  contains  the  projected  average  earnings 
levels  for  each  year  1966-2025  where  1966  =1.0 
and  is  escalated  by  the  appropriate  AVINC  value. 

CPINC  -  this  vector  lists  the  annual  increase  in  the 

consumer  price  index  used  in  the  calculation  of 
the  pension  Index. 

CPI  -  this  vector  contains  the  projected  consumer  price 
index  for  each  year  1966-2025  where  1961  =  100.0 
and  is  subsequently  escalated  by  the  appropriate 
CPINC  value. 

ERIND  -  this  vector  contains  the  earnings  indices  for 
each  year  1975-2025  based  upon  the  eight-year 
moving  average  lagged  two  years  as  defined  in 
section  21  of  the  Canada  Pension  Plan. 

ERBAS  -  this  number  is  the  sum  of  the  earnings  levels  for 
1966-1973  used  as  the  base  for  calculating  the 
earnings  index. 
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PNIND  -  this  vector  lists  the  pension  indices  for  each 

year  1967-2025  as  calculated  in  the  program  where 
1967  s  IQQoO  for  PENSXM  purposes®  The  values  are 
output  as  TFPNX.DAT. 

YMPE  -  this  sector  stores  the  YMPE  values  for  each  year 
1966-2025  which  are  input  up  to  1975  .  Beyond 
that  year  they  are  the  1975  YMPE  multiplied  by 
the  earnings  index  and  rounded  down  to  the  nearest 
$100  as  required  by  the  Plan®  The  values  are  output 
as  TXFPB.DAT. 


C.  INPUT  FILES  AND  DATA  STATEMENTS 


No  input  files  are  used  but  the  actual  values  for  1966- 
1969  of  AVINC,  CPI,  PNXNB  and  YMPE  are  input  in  data  statements® 


D.  METHODOLOGY 

1®  Pension  Index 

The  Act  sets  out  the  method  for  calculating  the  pension 
index  in  section  20,  The  values  for  1967-1969  are  input  directly 
as  data®  Briefly,  the  pension  index  is  the  average  of  the  CPI 
levels  for  the  twelve  months  ending  on  June  30  of  the  previous 
year  subject  to  a  2  per  cent  ceiling  on  any  annual  increase.  Thus, 
it  becomes  necessary  to  project  CPI  levels  for  each  year  and  find 
the  average  CPI  level  centred  over  January  1  of  the  previous  year. 
This  is  done  by  calculating  the  CPI  level  for  each  year  based 
upon  an  annual  increase  in  CPI  which  the  user  inputs  for  each  year 
until  1975.  The  1975  increase  is  used  for  all  subsequent  years. 

To  find  the  average  CPI  centred  over  January  1,  the  average  of 
the  CPI  levels  for  the  two  previous  years  is  calculated® 

Because  of  the  ceiling  on  the  pension  index  of  2  per 
cent  with  a  floor  of  1  per  cent,  it  is  necessary  to  do  an  annual 
comparison  of  the  previous  year 9 s  pension  index  escalated  by  the 
ceiling  and  the  CPI  level  for  the  12-month  period  ending  the 
previous  June  30.  To  maintain  the  PENSXM  flexibility,  the  user 
may  specify  any  ceiling  on  the  pension  index  e®g,  a  3  per  cent 
ceiling. 
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For  calculation  purposes  )  the  pension  indices  were 
then  adjusted  so  that  the  1967  pension  index  B  100.0. 

2.  Earnings  Index  and  YMPE 

The  statute  explains  how  the  YMPE  levels  are  to  be 
calculated  in  each  year.  The  value  in  1966  and  1967  was  set  at 
$5,000  and  escalated  until  1975  by  the  pension  index  and  there¬ 
after  by  the  earnings  index.  The  YMPE  levels  for  1966-1972  are 
known  and  thus  input  as  data.  The  user  will  then  specify  the 
YMPE  levels  for  1973-1975  and  similarly  he  will  input  the  annual 
increase  in  average  earnings  for  1970-1975  where  the  1975  value 
is  used  in  all  subsequent  years. 

The  YMPE  calculation  for  all  years  beyond  1975  is  based 
on  the  1975  YMPE  level  multiplied  by  the  earnings  index  and  rounded 
down  to  the  nearest  $100.  Thus,  the  earnings  index  must  be  cal¬ 
culated  for  each  year  1975-2025  where  the  1975  value  =  1.0. 

The  Plan  defines  the  earnings  index  as  the  average  of 
the  annual  average  earnings  levels  for  the  eight  years  ending  two 
years  previous  5divided  by  the  average  of  annual  average  earnings 
levels  for  1966-1973.  Thus,  it  is  necessary  to  calculate  the 
level  of  annual  average  earnings  for  each  year  to  2025  where 
1966  =  1.0. 

The  basis  for  the  earnings  index  is  the  average  of 
these  levels  for  1966-1973  and  to  simplify  the  calculation,  these 
are  merely  summed  and  divided  into  the  sum  of  the  earnings  levels 
for  the  eight  years  ending  two  years  previous  as  required  by  law. 
This  ratio  is  the  earnings  index  for  each  year  1975-2025. 


ffl 
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3.  Annual  Increase  in  Average  Earnings  Index 

This  index  may  be  used  in  program  MMAE.3  to  escalate 
the  1967  level  of  average  earnings  taken  from  the  CPP  computer 
output  of  contributor  data. 


E.  POLICY  VARIABLE  INPUT 

As  described  above  the  user  specifies  the  YMPE  levels 
in  1973-75  at  the  time  he  is  running  the  program.  The  program 
asks  the  question  and  the  user  merely  types  in  his  response  for 
each  year. 


Similarly,  the  annual  increase  in  average  earnings  and 
in  consumer  price  index  is  input  by  the  user  at  the  keyboard  for 
each  year  1970-1975.  He  may  choose  to  use  the  economic  assumptions 
on  page  23  of  the  Actuarial  Report  or  he  my  select  his  own.  The 
values  input  for  1975  are  taken  for  each  subsequent  year. 

Finally,  the  user  must  specify  the  ceiling  he  wishes 
to  use  on  annual  increases  in  the  pension  index. 

A  sample  answer  to  each  question  is  provided  at  the 
time  the  question  is  posed  to  assist  the  ^ser. 

F.  TELETYPE  QUESTIONS 

The  user  must  respond  to  the  following  questions  for 
the  program  to  continue  execution. 

1)  SPECIFY  YMPE  IN  nnnn: 

Where  nnnn  is  1973,  1974,  and  1975.  The  user 
should  respond  with  the  YMPE's  that  will  be  used 
in  a)  the  current  plan;  b)  the  proposed  plan;  or 
c)  a  nev?  plan  to  be  tested  for  the  years  indicated. 

2)  SPECIFY  GROWTH  IN  AVERAGE  EARNINGS  IN  nnnn: 

Where  nnnn  is  1970,  1971,  1972,  1973,  1974  and  1975. 
Respond  with  the  growth  rates  outlined  on  page  23 
of  the  1969  Actuarial  Report  or  with  new  ones. 
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3)  SPECIFY  GROWTH  IN  CPI  IN  nnnn: 

Where  nnnn  is  1970,  1971,  1972,  1973,  1974,  and 
1975 o  Respond  with  the  consumer  price  indices 
outlined  on  page  23  of  the  1969  Actuarial  Report 

or  with  new  ones. 

4)  SPECIFY  CEILING  ON  PENSION  INDEX: 

Respond  with  the  desired  ceiling  for  the  pension 
index. 

G.  OUTPUT  FILES 

The  pension  index  projections  generated  by  this  program 
are  stored  in  output  file  TFPNX.BAT0  The  YMPE  projections  are 
stored  in  output  file  TXFPB.BAT  and  the  index  of  increase  in 
average  earnings  is  stored  in  output  file  TFIND.DAT.  These  files 
may  then  be  used  in  running  the  PENSIM  model. 

H.  NOTES 


Program  Index. 2  produces  a  series  of  index  projections 
as  specified  by  the  user.  However,  PENSIM  will  normally  default 
to  one  of  the  four  schemes  tested  in  the  Actuarial  Report  i.e. 
moderate  inf lation/ reasonable  stability  and  current  plan/ proposed 
plan.  The  user  would  normally  specify  one  of  these  plans  in  which 
case  the  output  files  from  INDEX. 2  will  not  be  used.  This  program 
was  designed,  however,  for  the  user  who  wishes  to  choose  a  further 
set  of  policy  alternatives  and  specifically  where  the  objects  of 
examination  are  the  economic  assumptions  and  hence  the  indices  and 


YMPE  levels 
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V  MMAE .  3 


A.  INTRODUCTION 


The  program  MMAE, 3  calculates  modified  modified  average 
earnings  for  different  age  groups  of  CPP  contributors  through  time,, 
The  results  are  stored  in  a  data  file  for  use  in  a  number  of  other 
programs  in  the  PENSIM  model. 

The  term  modified  modified  average  earnings  originates 
from  the  double  modification  applied  to  average  earnings  for  the 
Canadian  population  less  Quebec. 

The  first  modification  results  from  calculating  average 
earnings  using  only  those  earnings  which  are  equal  to  or  less  than 
the  year's  maximum  pensionable  earnings  (YMPE) .  Any  earnings  in 
excess  of  this  amount  are  ignored.  Thus  modifed  average  earnings 
are  less  than  the  real  average  earnings  for  the  population.  This 
calculation  is  one  of  the  more  complex  in  the  PENSIM  model  and  is 
discussed  in  more  detail  later  in  this  document. 

The  second  modification  takes  place  by  deflating  all 
modified  average  earnings  with  an  index  constructed  by  dividing 
the  1967  base  year  YMPE  by  the  YMPE  in  each  year.  Modified  modified 
average  earnings  then  have  a  1967  constant  dollar  value  in  terms 
of  productivity  changes  and  inflation.  This  allows  the  programmer 
to  test  various  economic  assumptions  to  blow  up  modified  average 
earnings  through  time. 

B.  VECTORS  AND  MATRICES 

YMPE  -  contains  the  YMPE's  of  the  option  being  tested  for  the 
60-year  time  horizon  of  the  program. 

AVERN  -  contains  calculated  average  earnings  stored  in  11  age 
groups,  through  60  years  for  both  sexes. 

INDEX  -  contains  the  reasonable  stability  or  moderate  infla¬ 
tion  indices  for  growth  in  average  wages  depending  on 
the  option  being  tested. 
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YBE  -  contains  the  results  of  the  calculation  of  the  Year’s 
Basic  Exemption  for  60  years,  the  method  depending 
on  the  assumption  being  tested. 

VALU  -  is  a  utility  array  which  is  overwritten  several  times 
during  the  course  of  operation  of  the  program.  Its 
final  output  is  the  modified  modified  average  earnings 
(MMAE)  which  is  stored  in  the  same  manner  as  the  AVERN 
array. 


The  eleven  age  groups  are: 

15-19 

45-49 

20-24 

50-54 

25-29 

55-59 

30-34 

60-64 

35-39 

65-69 

40-44 

These  groups  are  the  only  ones  necessary  since  con¬ 
tributions  to  the  CPP  cannot  begin  before  age  18  and 
cease  after  age  69.  The  sixty  years  are  the  years 
from  1966-2025.  The  order  of  sexes  is  males  first, 
females  second. 

ADJ  -  is  a  vector  of  adjustment  factors  which  is  explained 
below. 


C.  INPUT  FILES  AND  DATA  STATEMENTS 

There  are  five  data  files  read  in  by  MMAE. 3.  The  first 
reads  the  annual  YMPE’s  produced  by  the  program  INDEX. 2.  The  input 
file  read  in  keys  off  the  word  typed  in  at  the  beginning  of  the 
program.  A  listing  of  the  files  can  be  found  in  chapter  XIII. 

The  second  file  read  in,  ADJ,  contains  twenty-two  adjustment 
factors  that  are  used  to  approximate  the  income  distribution  of  the 
other  age  groups  interpolated  from  the  40-44  age  group. 

The  initial  contents  of  the  AVERN  matrix  are  read  in 
from  the  data  file  AVE67.  This  file  contains  two  groups  of  eleven 
items  (male  and  female) ;  one  item  for  each  of  the  eleven  age 
classifications.  The  data  consists  of  the  1967  total  earnings  for 
each  age  group  and  sex  divided  by  the  total  number  of  contributors 
in  each  age  group  and  sex. 
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The  values  read  into  the  vector  INDEX  are  the  growth 
indices  which  are  used  to  escalate  average  earnings  through  time. 
They  are  based  on  the  growth  rates  found  on  page  23  of  the  1969 
Actuarial  Report.  The  index  which  is  used  is  keyed  off  by  the 
teletype  response  entered  by  the  programmer.  These  files  are 
listed  in  chapter  XIII. 

The  final  data  file  is  read  in  during  the  execution  of 
subroutine  SPLINE.  The  file  read  in  is  POINT.  The  data  in  this 
file  is  used  to  set  up  the  interpolating  function  for  the  spline 
operation.  The  first  value,  J,  denotes  whether  the  first  (J  =  1) 
or  second  (J  =  2)  derivatives  of  the  end  points  are  being  supplied. 
The  two  values  for  D  are  the  first  or  second  derivatives  of  the 
end  points.  The  next  thirty-one  values  are  the  X’s  and  the  final 
thirty-one  are  the  Y’s  to  give  the  thirty-one  ordered  pairs 
which  describe  the  interpolating  function.  There  are  four  sets 
of  points  as  described  above,  each  of  which  has  two  sets  of  values 
interpolated  from  it  to  produce  eight  sets  of  interpolated  points. 


D.  METHODOLOGY 


The  basic  operation  of  the  program  consists  first  of 
calculating  the  average  earnings  matrix.  This  is  a  simple  operation 
involving  nothing  more  than  escalating  age-grouped  1967  average 
Canadian  (except  Quebec)  earnings  by  an  appropriate  index  which 
is  found  on  page  23  of  the  1969  Actuarial  Report.  If  the  user 
wishes  to  use  another  index  it  should  be  entered  in  the  data 
file  TFIND,  created  by  program  INDEX. 2. 

The  matrix  AVERN  is  then  divided  year-wise  into  the  vector 
YMPE  for  upper-limit  values,  and  then  into  the  vector  YBE  for  lower- 
limit  values,  by  age  and  sex.  The  results  are  stored  in  the  matrix 
VALU.  This  gives  the  YMPE  and  the  YBE  as  a  percentage  of  average 
earnings  by  age  group  and  sex. 
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At  this  point  the  Department  of  Insurance  derived  four 
graphs  to  calculate  modified  average  earnings.  All  the  graphs 
were  computed  on  the  basis  of  the  income  distribution  of  the  40-44 
age  group.  There  are  two  graphs  for  males  and  two  for  females. 

The  first  graph  in  each  sex  group  shows  the  functional 
relationship  between  the  dollar  value  of  contributors’  earnings 
which  are  less  than  the  YMPE,  expressed  as  a  percentage  of  total 
contributions,  and  the  earnings  levels  of  the  contributors’  age 
group  expressed  as  a  percentage  of  average  earnings. 

The  second  graph  shows  the  relationship  between  contrib¬ 
utors’  earnings  groups  to  total  earnings,  and  the  earnings  levels 
of  the  contributors'  age  group  expressed  as  a  percentage  of  average 
earnings.  The  shapes  of  these  graphs  are  depicted  below. 

The  percentages  which  are  stored  in  VALU  are  then  inter¬ 
polated  in  turn  from  these  graphs;  both  the  upper  and  lower-limit 
values  are  interpolated  for  each  graph  which  produces  eight  sets 
of  interpolated  values.  The  percentages  stored  in  VALU  can  be 
considered  as  X  values  from  which  we  are  interpolating  Y  values 
on  the  graphs. 


MALES  40-44 


FEMALES  40-44 


Percentage  earnings  level 
to  average  earnings 


Percentage  earnings  level 
to  average  earnings 


Percentage  earnings  to  total  earnings. 


20 


MALES  40-44 


FEMALES  40-44 
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Percentage  earnings  level 
to  average  earnings  . 


To  transform  the  interpolated  values  into  income  dis¬ 
tributions  for  the  other  age  groups  a  set  of  adjustment  factors  was 
calculated  by  the  Department  of  Insurance,  These  factors  are 
found  in  the  vector  ADJ.  There  are  11  age  groups  for  each  sex  for  a 
total  of  22  factors.  This  method  was  utilized  instead  of  con¬ 
structing  graphs  for  all  the  age  groups  because  of  the  rather 
gross  nature  involved  in  setting  up  the  graphs  and  using  a  hand 
interpolation  method  to  draw  the  functions.  It  was  felt  that  an 
adjusted  interpolation  was  more  accurate  than  the  ocular  method. 

The  interpolating  procedure  used  in  PENSIM  is  the  cubic 
spline  method.  This  calculation  is  found  in  subroutine  SPLINE  of 
the  program  MMAE.3.  The  variables  used  in  the  explanation  of  the 
method  are  the  same  as  those  found  in  the  program. 


The  method  is  as  follows: 
in  the  ith  interval  (X.,X.  ,  .. )  define 

ii+l 

a.  =  X.  .  .  -  X. 

i  l  +  l  l 


L  °  yi  +  i  -  y± 


a. 

i 


i  +  1 


H. 

l 
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The  general  cubic  then  has  the  form: 

y(x)  =  yi  +  A_^  (x  -  x^  +  B±  (x  -  x;[)2  +  C±  (x  -  x^3  ^ 


(a.)  2 
1 


(a.)3 


?  ?! 

Under  the  conditions  that  the  values  of  the  y,  y  ,  y  be  the  same 

at  X.  .  for  the  intervals  (x, ,x.  )  and  (X  X  „)  we 

i+I  i  i  +  X  1+11  +  / 

obtain  the  following  equations: 

Replace  x  with  x^  +  1  in  equation  (1) ,  then 

y  c*i  +  d  -  yi  +  h  +  h  +  ci 


or 


Y.  A.  +  B.  +  C. 
1=1  l  l 


(2) 


where  the  A^,  and  Ch  are  the  interpolating  coefficients. 
Differentiating  equation  (1)  we  get 


f  2 
y  (x)  =  A.  +  2B.  (x  -  x.)  +  3C,  (x  -  x.) 

11  11  1 


(3.1) 


a. 

l 


a.  (a . ) 2 

i  i 


Then  for  the  interval  (x.  ,  _ ,x.  ) 

l+l  i  +  2y 

» 

y  ^xi  +1^  ~  ^i  +  1 

a.  _ 
i+l 


(3.2) 


Equating  (3.1)  and  (3.2)  and  eliminating  A^  with  equation 

(2), 


-  Y.  =  B,  +  2C .  -  H.A.  ,  , 
i  i  i  ii  +  l 


(3) 


Differentiating  equation  (1)  again  gives: 

?! 

y  (x)  =  2B.  +  6C . (x  -  x. ) 
a. 2  a. 2  a. 

ill 

!  ? 

Similarly,  we  evaluate  y  (x)  for  the  two  intervals 
(*i,Xi  +  -^)  anc*  +  Is  xi  +  2^*  Equating  the  two  we  get 


Y  =  C.  +  H.A.  ,  .  -  H.  B4  ^  . 
l  i  ii  +  l  i  i  +  l 


(A) 


where  i  =  1,  2,  . . . ,  n  -  2 

If  the  first  derivatives  are  specified  at  x,  and  x  .  the 

i  n 

following  set  of  equations  is  adjoined  to  equations  (2), 
(3)  and  (A) : 


Ai  =  aiy 


(5.1) 


B+2C  -,  =  a  .  y  ~y 
n  n  ~  1  n  -  1  J  n 


n  -  1 


(6.1) 
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If  the  second  derivative  is  specified  the  following  set 


is  used  instead: 

12” 

Bi  =  2  a  y 

2  " 

2B  .  +  6C  -  =  (a  _  y 

n-1  n-1  n  -  i  n 

To  ensure  that  the  point  (x  ,y^)  lies  on  the  (n 

of  the  cubic  we  use: 


(5.2) 

(6.2) 


-  1) 


A  .  +  B  .  +  C  =  Y 
n-1  n-1  n-1  n-I 


(7) 


Finally,  the  set  of  equations  (2),  (3),  (4),  (5.1),  (6.1) 
or  (5.2),  (6.2)  (depending  whether  the  1st  or  2nd  deriv¬ 
atives  are  specified  respectively)  and  (7)  form  a  tri¬ 
diagonal  system  of  3n  -  3  equations. 


To  solve  the  tridiagonal  system  for  the  3n  -  3  unknown 
coefficients 

A_.  ,  B_^  ,  i  —  1)  2)  •  i  .  )  n  -  1 

a  step-by-step  procedure  is  used. 

During  the  operation  of  the  program  the  user  is  unaware 
of  the  interpolation  procedure  since  it  is  completely  automatic. 
It  is  probably  best  to  regard  it  as  a  black  box. 


A  word  of  caution  is  interjected  here  regarding  the  use 
of  the  input  file  POINT  in  the  SPLINE  subroutine.  It  may  be 
necessary  to  constrain  the  end  points  to  the  derivatives  that  have 
been  specified.  This  can  be  accomplished  by  adding  sets  of 
ordered  pairs  to  either,  or  both  end  points.  The  fact  that  the 
spline  interpolation  method  requires  the  cubic  between  points 
X_^  _  ^  and  X_.  agree  with  the  cubic  between  points  X^  and  X_.  _ 
at  the  point  X^  in  their  first  and  second  derivatives  makes  this 
constraint  necessary.  One  method  to  ensure  correct  specification 
is  to  have  the  interpolating  function  plotted  on  a  CALCOMP  Incre¬ 
mental  Plotter  or  some  other  similar  peripheral  device  to  see  the 
exact  shapes  of  the  function  at  its  end  points. 
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Once  the  interpolation  is  completed  the  5280  values  are 
stored  in  the  matrix  VALU(11  x  60  x  8) .  There  are  four  sets  of 
interpolated  values  for  males  and  four  for  females.  The  four  sets 
are  composed  of : 

A)  proportion  of  contributors'  earnings  less  than  the  YMPE 

B)  proportion  of  contributors'  earnings  less  than  the  YBE 

G)  proportion  of  earnings  less  than  the  YMPE 

D)  proportion  of  earnings  less  than  the  YBE. 

Let  the  average  wage  per  age  group  in  the  year  under 
consideration  be  E  and  the  appropriate  year’s  YMPE  be  F.  The 
final  calculation  of  modified  average  earnings  is  given  by  the 
expression 

E(C  -  D)  +  F  (1  -  A) 

1  -  B 

In  the  program  this  calculation  takes  place  in  one  line 
and  simultaneously  it  is  adjusted  to  the  proper  income  group  and 
deflated  to  1967  constant  dollars.  The  deflation  is  computed  by 
dividing  the  1967  YMPE  ($5,000)  by  the  YMPE  of  the  year  in  ques¬ 
tion. 


E.  POLICY  VARIABLE  INPUT 


During  the  execution  of  the  program  the  user  is  asked  a 

number  of  questions.  The  user  must  supply  an  answer  before 

execution  will  continue.  The  first  question  relates  to  the  type 

of  plan  that  is  to  be  tested.  There  are  five  possibilities  each 

represented  by  a  suitable  acronym. 

RSCUR  -  reasonable  stability,  current  plan 

MICUR  -  moderate  inflation,  current  plan 

RSPRO  -  reasonable  stability,  proposed  plan 

MIPRO  -  moderate  inflation,  proposed  plan 

TXFPB  -  user-specified  option. 


il 
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These  are  the  key  words  which  govern  the  set  of  YMPE?s 
that  are  read  into  the  program.  They  are  based  on  the  four  sets 
of  projections  as  developed  by  the  Department  of  Insurance, 
Ottawa.  The  fifth  possibility  is  TXFPB  which  allows  the  user  to 
specify  any  set  of  YMPE’s  that  he  wishes.  TXFPB  is  an  output 
file  produced  by  program  INDEX. 2. 


In  addition,  these  codes  govern  the  index  that  is  read 
in  to  escalate  annual  average  earnings  (AVE67) . 


RSCUR 

RSPRO 

RSIND 

MI  CUR 

MIPRO 

" 

MIIND 

TXFPB 

TFIND 

reasonable  stability  index 

moderate  Inflation  index 
user- generated  index 


If  the  user  has  specified  the  current  or  proposed  plan 
the  proper  calculation  of  the  YBE  is  done  automatically.  If  the 
TXFPB  option  is  specified,  the  user  will  be  asked  whether  he  desires 
the  current  or  proposed  plan  method  of  calculating  the  YBE. 


F.  OUTPUT  FILES 


MMAE.3  produces  one  output  file  of  modified  modified 
average  earnings  per  run.  The  output  file  produced  has  the  'MM* 
prefix  plus  the  first  three  letters  of  the  original  code  word  for 
type  of  plan  typed  in.  For  example,  a  MIPRO  run  will  produce  an 
output  file  named  MMMIP.  At  the  end  of  execution  the  name  of  the 
output  file  generated  will  appear  on  the  teletype.  The  output 
file  stores  the  modified  modified  average  earnings  matrix  by  year, 
by  age,  by  sex.  (60,  11,  2) 

C-.  TELETYPE  QUESTIONS 

There  is  one  question  posed  by  the  teletype  that  the 
user  must  respond  to.  An  additional  question  is  asked  if  the  user 
specifies  the  TXFPB  option. 
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1)  TYPE  IN  PLAN  TO  BE  TESTED: 

Respond  with  one  of  the  five-letter  code  words  outlined 

in  section  (E).  If  the  user  misspells  one  of  these 

words,  the  terminal  will  reply  for  example,  RXPRQ?,  TRY  AGAIN. 

2)  YBE  -  CURRENT /PROPOSED? 

Respond  with  either  CURRENT  or  PROPOSED.  This  question 
is  asked  if  the  user  specifies  the  TXFPB  option  in 
question  1  above.  The  computer  must  know  which  method  of 
calculating  the  YBE  the  user  desires. 


H.  NOTES 


If  the  user  wishes  to  use  a  different  YBE  it  must  be 
changed  in  the  program. 

To  produce  an  income  distribution  for  a  provincial  run, 
a  new  POINT  file  must  be  created.  The  data  to  create  this  file 
is  available  from  the  CPP  Research  and  Planning  Division.  In  addition, 
the  files  AVE67  and  ADJFC  must  be  converted  to  provincial  data 
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VI  RETBN.4 


A.  INTRODUCTION 


RETBN.4  is  the  fourth  program  in  the  PENSIM  series  designed 
to  provide  benefit  costs  in  the  calculation  of  the  CPP  fund  pro¬ 
jections.  This  program  specifically  calculates  the  costs  of  retire¬ 
ment  pensions  and  the  costs  of  the  lump  sum  death  benefit  payable  to 
the  contributor's  estate  on  his  death.  As  well,  RETBN.4  generates 
the  death  benefit  factors  that  are  required  in  WIDOW. 6  and  DISBN.7 
for  the  projection  of  the  earnings-related  benefit  costs. 

The  method  used  in  RETBN.4  is  adapted  from  the  valuation 
of  the  federal  Department  of  Insurance  for  the  Canada  Pension  Plan  as 
at  December  31st,  1969.  RETBN.4  uses  all  the  assumptions  found  in 
the  Actuarial  Report  and  was  designed  specifically  to  test  the  four 
schemes  i.e.  moderate  inflation,  reasonable  stability,  current  and 
proposed  plans  found  in  the  Report,  These  in  turn  are  based  on  the 
federal  government's  proposals  to  amend  the  Canada  Pension  Plan  as 
described  in  the  White  Paper  on  Income  Security,  1970. 

In  addition  to  estimating  costs  based  on  the  four  sets  of 
assumptions  above,  RETBN.4  can  be  used  to  assess  a  variety  of  policy 
alternatives  for  retirement  pensions,  and  indirectly,  all  earnings- 
related  pensions.  In  concert  with  similar  changes  in  the  other 
PENSIM  programs,  fund  projections  to  the  year  2025  can  be  established 
quickly. 


Policy  variables  handled  by  RETBN.4  include  the  retirement 
pension  rate,  the  drop-out  rate  of  lowest  annual  earnings  ratios, 
the  retirement  age,  the  earnings  test,  federal  or  provincial  data, 
the  pension  index  formula,  the  earnings  index  formula,  and  the  cost- 
of-living  escalators. 
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B.  VECTORS  AND  MATRICES 


PART 

This  matrix  contains  the  labour  force  participation 
rates  by  sex,  year  and  plan  and  is  input  through  a 
data  statement. 

MMAE 

This  matrix  contains  the  modified  modified  average 
earnings  as  calculated  in  program  MMAE. 3  by  age  group, 
sex  and  year.  The  data  is  input  from  the  disk  and  is 
keyed  by  a  switch  at  the  start  of  execution  which  asks 
which  plan  is  being  tested. 

PMMAE  - 

This  matrix  is  the  participating  modified  modified 
average  earnings  and  is  obtained  by  multiplying  each 
element  in  MMAE  by  the  appropriate  participation  rate 
in  PART. 

FILE 

This  vector  contains  the  input-output  file  names  where 
five  options  are  available  for  each  of  YMPE ,  MMAE, 
death  benefit  factors,  death  benefit  costs  and  retire¬ 
ment  pension  costs.  This  option  is  keyed  from  the 
switch  at  the  start  of  execution. 

SUM 

This  matrix  is  used  to  sum  the  P MMAE ’ s  for  any  age  group 
over  the  contribution  years  of  the  age  group  and  sex. 

DROP 

This  vector  sums  the  earnings  dropped  out  for  males 
because  of  the  drop-out  provisions  in  the  Act.  The  drop 
out  rate  is  a  policy  variable  in  this  program  and  is 
input  from  the  TTY  at  the  start  of  execution.  The  drop¬ 
out  calculation  occurs  in  subroutine  MIN. 

YRSPRT  - 

This  vector  contains  the  years  of  participation  for 
each  age  group  depending  on  the  year  of  death  or  retire¬ 
ment  (LASTIR)  and  the  first  year  of  participation  in 
the  GPP  (FRSTYR). 

EXPOS  - 

This  vector  contains  the  years  of  participation  that 
are  dropped  out  from  the  calculation  of  total  pension¬ 
able  earnings  in  subroutine  MIN.  Each  element  is 
obtained  by  multiplying  YRSPRT  by  the  drop-out  rate 
input  from  the  TTY. 

NR 

This  counter  is  used  in  a  do- loop  where  each  iteration 
is  death  at  a  different  age. 

TPNER  - 

This  matrix  is  total  pensionable  earnings  by  age  group 
and  sex  and  is  the  difference  between  SUM  and  DROP. 

TEM1 

This  vector  is  a  temporary  one  in  which  is  stored  the 
product  of  YRSPRT*  non-dropped-out  percentage  *(1/ 
retirement  rate)  (input  from  TTY  at  start  of  execution). 
Because  of  the  maturing  aspects  of  the  Plan,,  if  the 
years  of  participation  are  less  than  10,  there  is 
no  drop-out  provision  and  TEM1  is  merely  YRSPRT  *  1/ 
retirement  rate. 

TEM 

This  matrix  is  a  special  case  used  only  for  retirement 
at  age  65  and  is  used  temporarily  to  find  an  average 

TEM1  for  that  iteration  only. 

DSDRP  - 

This  matrix  is  used  to  increase  the  factor  by  a  disa¬ 
bility  drop-out  factor.  This  data  is  input  in  a  data 
statement  and  is  used  in  the  program  based  on  the  NR 
iteration. 
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RTFAC  -  This  matrix  is  for  temporary  storage  of  the  retirement/ 
death  benefit  factors  and  the  column  of  factors  is  then 
converted  to  row  form  in  matrix  FACTOR. 

FACTOR  -  This  matrix  contains  the  death  benefit  factors  for  the 
calculation  of  death  benefit  costs.  After  this  calcu¬ 
lation,  the  last  six  rows  are  overwritten  by  minor 
changes  to  compute  the  retirement  benefit  costs. 

ESC1  -  This  vector  contains  the  first  escalation  factors  which 
are  used  to  escalate  factors  for  age  groups  65+.  The 
calculations  of  ESC1  elements  are  based  on  Department 
of  Insurance  methods  and  are  made  in  the  program. 

ESC2  -  This  vector  contains  the  second  escalation  factors  which 
are  used  in  the  calculation  of  death  benefit  costs. 

SURVRT  -  This  matrix  contains  the  survival  rates  by  age  group, 
sex  and  year  and  is  input  from  disk  file  SURVM.DAT. 

POP  -  This  matrix  contains  the  population  by  age  group,  sex 
and  year  and  is  input  from  disk  file  ONE. DAT. 

NMDTH  ••  This  matrix  contains  the  number  of  deaths  i.e.  (1  - 

survival  rate)*  population*  the  appropriate  death  benefit 
factor  for  the  calculation  of  the  death  benefit  costs. 

DTHCS1  -  This  matrix  is  the  summation  of  death  benefit  costs  for 
all  age  groups  up  to  age  65  by  sex  and  is  then  over¬ 
written  by  multiplying  the  first  nine  age  groups  by  the 
second  escalation  factor  and  later  overwritten  by  the 
total  death  benefit  costs. 

DTHCS2  -  This  matrix  is  the  summation  of  death  benefit  costs  for 
all  age  groups  from  age  65+  by  sex  and  is  then  over¬ 
written  by  multiplying  the  last  six  age  groups  by  the 
pension  index. 

PNIND  -  This  vector  contains  the  pension  index  for  each  year  and 
is  input  from  disk  depending  on  the  plan  being  tested. 

RTCST  -  This  matrix  contains  retirement  pension  costs  by  sex 

and  year  and  can  be  output  in  table  form  or  in  data  form 
for  use  in  FUND. 9. 

DREDC  -  This  vector  contains  factors  that  reduce  the  death  bene¬ 
fit  costs  because  of  the  ceiling  of  six  months  imputed 
retirement  pension  or  10  per  cent  of  the  year's  YMPE. 


C.  INPUT  FILES  AND  DATA  STATEMENTS 


The  most  important  source  of  data  required  in  program  RETBN.4 
is  the  appropriate  matrix  of  modified  modified  average  earnings  pro¬ 
duced  by  program  MMAE.3. 

Because  the  retirement  and  death  benefit  factors  are  totally 
dependent  on  earnings  levels,  this  file  must  be  read  into  matrix  MMAE 
and  used  as  the  basis  of  calculation. 
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Similarly,  it  is  necessary  to  read  in  the  population 
figures  as  generated  by  P0P.1  in  file  ONE.  This  source  of  data  is 
read  into  vector  POP. 

The  appropriate  levels  of  YMPE  and  the  pension  index  are 
read  in  from  the  disk  and  the  selection  of  the  proper  file  is  keyed 
from  the  terminal  by  the  user  in  his  choice  of  plan  being  tested. 

For  the  plan  under  consideration,  the  user  will  select  one 
of  the  code  words  listed  in  chapter  V. 

Two  other  files  which  input  from  the  disk  are  sources  of 
data  on  survival  rates  and  reduction  factors.  The  former  is  SURVRT 
used  in  the  calculation  of  death  benefit  costs  and  the  latter  DREDC 
is  used  to  account  for  the  ceiling  on  the  death  benefit  of  10  per  cent 
of  the  year's  YMPE. 

Also  used  as  data  are  the  labour  force  participation  rates 
of  vector  PART;  disability  drop-out  rates  (DSDRP)  and  a  series  of 
numbers  representing  the  ages  of  contributors  in  1966  (FRSTYR)  and  the 
ages  of  contributors  in  the  year  of  their  death  (LASTYR),  necessary 
to  calculate  the  death  benefit  rate. 

D.  METHODOLOGY 

For  this  description,  program  RETBN.4  can  be  split  into 
two  distinct  parts.  The  first  is  the  calculation  of  the  retirement 
benefit  factors  and  death  benefit  factors,  and  the  second  part  is 
the  calculation  of  the  retirement  benefit  costs  and  death  benefit 
costs  based  on  the  earlier  calculations. 

Because  the  factors  generated  in  the  first  section  of  this 
program  are  earnings-related,  they  are  also  used  in  WIDOW. 6  and 
DISBN.7  to  calculate  the  earnings-related  portion  of  those  supple¬ 
mentary  benefits. 
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The  program  is  initialized  by  the  user  from  the  teletype 
when  he  selects  the  policy  variables  he  wishes  to  use.  By  typing  in 
any  of  the  plans  mentioned  in  chapter  V,  the  user  invokes  a  series 
of  switches  which  are  used  to  call  in  the  other  data  e.g.  modified 
modified  average  earnings,  YMPE  levels,  pension  index  values,  etc. 

The  calculation  of  the  benefit  factor  for  any  age  group 
involves  summing  the  modified  modified  average  earnings  (MMAE)  amounts 
for  each  year  of  participation.  Thus  for  someone  who  participates 
in  the  CPP  from  age  18  to  age  65  this  sum  will  be  the  total  of  47 
earnings  amounts. 

To  ensure  that  the  projections  reflect  only  those  for  par¬ 
ticipants  in  the  Canada  Pension  Plan,  the  MMAE's  are  multiplied  by  the 
appropriate  labour  force  participation  rate  depending  on  the  year, 
sex,  and  policy  options  being  assessed.  The  result  of  this  operation 
produces  a  matrix  of  "participating”  MMAE's  (PMMAE)  for  each  year, 
sex,  and  age  group. 

To  facilitate  the  summation  of  these  PMMAE's  for  each  age 
group,  it  is  first  necessary  to  do  a  transformation  of  this  matrix. 

In  so  doing,  the  method  departs  slightly  from  that  of  the  Department 
of  Insurance,  though  the  results  are  the  same.  The  federal  method 
involves  a  diagonal  step-wise  addition  of  these  PMMAE's  for  every 
five-year  interval  and  for  each  five-year  age  group.  However,  be¬ 
cause  PENSIM  generates  annual  data,  it  is  easier  and  more  accurate 
to  transform  the  matrix  from  a  diagonal  series  through  time  for  each 
age  group  to  a  matrix  of  rows,  each  of  which  contains  up  to  forty- 
seven  PMMAE's  for  that  particular  age  group. 

To  retain  harmony  with  the  federal  method,  RET BN. 4  uses 
age  groups  as  they  stood  in  1965.  Because  those  people  who  will  not 
be  born  until  many  years  in  the  future  must  be  considered,  the  range 
of  these  age  groups  is  the  group  aged  65-69  in  1965  back  to  the  group 
aged  -46  to  -50  in  1965.  Those  age  groups  10-14  in  1965  to  -46  to  -50 
stored  in  the  non-positive  partitions  of  the  matrices  so  that  these 
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age  groups  would  not  be  involved  in  any  partial  calculations.  The 
remaining  age  groups  i.e.  15-19  to  65-69  in  1965  must  be  treated 
differently  because  they  would  not  participate  in  the  CPP  for  the 
full  47  years. 

The  transformed  matrix  of  PMMAE ' s  is  given  the  name  P1NDIV 
and  a  similar  transformation  is  done  on  matrix  MMAE  so  that  it  be¬ 
comes  matrix  INDIV.  This  latter  operation  is  necessary  for  the  sub¬ 
sequent  calculation  of  earnings  dropped  out. 

To  find  the  sum  of  pensionable  earnings  for  any  age  group 
up  to  the  retirement  age,  all  the  values  on  the  row  are  summed  up. 

For  those  age  groups  that  do  not  have  a  positive  storage  location, 
there  will  be  47  values.  The  other  age  groups  will  have  fewer  values 
e.g.  age  group  25-29  in  1965  will  have  40  values  to  sum  i.e.  65  minus 
25.  The  calculation  of  death  benefit  factors  is  similar  except  that 
these  factors  must  be  calculated  not  only  for  age  of  death  or  retire¬ 
ment  at  65  but  also  for  death  at  ages  25,  30,  35,  40,  45,  50,  55,  60, 
and  65.  The  calculation  of  the  factors  for  the  different  ages  of 
death  are  done  iteratively  in  a  do-loop  (NR).  Thus  when  NR  is  set 
at  value  8,  this  is  the  calculation  of  the  death  benefit  factor  at 
age  60;  when  NR  =  7 ,  the  calculation  is  for  death  at  age  55,  etc. 

The  calculation  of  the  factor  is  done  by  summing  the  years 
of  participation  in  the  CPP,  (SUM),  as  described  above,  and  then 
adapting  this  amount  by  various  policy  choices. 

The  first  such  variation  is  the  drop-out  provision  of  the 
Canada  Pension  Plan.  Under  the  legislation,  whenever  the  participa¬ 
tion  exceeds  10  years,  the  lowest  15  per  cent  of  annual  earnings 
levels  are  dropped  from  the  sum  in  calculating  retirement  benefits. 

This  calculation  takes  place  in  subroutine  MIN.  Matrix 
INDIV  is  duplicated  in  the  subroutine  (DUP)  and  an  exposure  factor 
is  determined  for  each  age  group  given  their  years  of  participation 
(YRSPRT) .  Thus  with  a  drop-out  rate  of  15  per  cent  and  a  maximum 


32 


participation  of  47  years,  the  exposure  factor  would  be  7.05  for  that 
age  group.  Fewer  years  of  participation  yields  a  smaller  exposure 
factor.  For  the  retirement  benefit  calculation,  any  participation 
of  less  than  ten  years  does  not  invoke  the  drop-out  feature. 

The  calculation  of  earnings  dropped  out  involves  finding 
the  lowest  annual  MMAE  and  summing  these  for  each  year  up  to  the  ex¬ 
posure  factor.  For  example,  with  an  exposure  factor  of  7.05,  find  the 
seven  lowest  MMAE's  for  the  age  group,  sum  them  and  then  add  .05 
times  the  eighth  lowest  MMAE. 

The  subroutine  does  this  in  a  series  of  do- loops  where  the 
lowest  MMAE  for  the  age  group  is  determined  and  accumulated.  This 
value  is  then  increased  by  5,000  so  it  will  not  be  selected  again  and 
then  the  process  is  repeated  to  find  the  next  lowest  MMAE.  This 
method  continues  until  the  lowest  MMAE's  are  summed  and  the  decimal 
part  of  the  exposure  factor  is  added.  This  amount  is  cumulated  in 
matrix  DROP. 

It  should  be  pointed  out  that  no  earnings  are  dropped  out 
for  females  unless  the  drop-out  rate  exceeds  25  per  cent.  This  is 
necessary  because  of  the  pattern  of  years  of  nil  earnings.  Because 
females  will  have  more  years  of  nil  earnings  than  males,  the  drop-out 
provision  is  less  important.  However,  should  the  drop-out  rate  in¬ 
crease  substantially  --  PENSIM  uses  all  drop-out  rates  exceeding  25 
per  cent  --  the  drop-out  factor  becomes  more  significant  and  thus 
female  earnings  will  be  dropped  out  in  the  calculation  as  well. 

Because  subroutine  MIN  has  altered  the  table  of  MMAE's  in 
finding  the  lowest  values,  it  is  necessary  to  duplicate  the  INDIV 
matrix  each  time  the  subroutine  is  called. 

After  the  drop-out  values  (DROP)  are  returned  to  the  main 
program,  they  are  multiplied  by  the  lowest  participation  rate  because 
the  calculation  of  earnings  dropped  out  did  not  use  participating 
MMAE's.  Similarly,  only  .5  of  this  value  is  used, to  account  for  the 
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years  of  nil  earnings  that  would  exist  during  the  years  that  the  pen¬ 
sioner  could  have  contributed,  but  did  not. 

The  resulting  amount  of  total  pensionable  earnings  is  de¬ 
termined  by  subtracting  the  earnings  dropped  out,  where  applicable, 
from  the  total  pensionable  earnings  calculated  previously. 

Another  factor  that  affects  the  retirement  pension  is  the 
retirement  rate.  In  the  statutory  formula,  this  rate  is  25  per  cent 
and  this  is  the  figure  usually  entered  by  the  user  when  he  initializes 
the  program.  To  account  for  this  factor,  or  use  any  alternative  re¬ 
tirement  rate,  a  vector  calle  TEM1  is  calculated. 

Each  element  in  this  vector  is  determined  by  multiplying 
the  years  of  participation  for  each  age  group  by  the  percentage  of 
years  not  dropped  out  (the  residual  of  the  exposure  factors)  and  then 
multiplying  this  product  by  the  inverse  of  the  retirement  rate. 

The  inverse  of  this  rate  is  used  because  the  next  step 
involves  dividing  the  TEM1  value  into  the  total  pensionable  earnings. 
In  effect,  total  pensionable  earnings  are  multiplied  by  the  retire¬ 
ment  rate  and  divided  by  the  years  of  participation  that  remain  after 
allowing  for  the  drop-out  factor.  The  amount  so  calculated  is  then 
multiplied  by  a  disability  factor  (DSDRP)  which  allows  for  the  years 
when  contributions  may  not  have  been  made  because  of  disability. 

Once  this  calculation  has  been  made,  the  result  is  the  death  benefit 
factor  for  that  age  group  for  death  at  the  given  age. 

A  slight  variation  occurs  in  the  calculation  of  retirement 
benefit  factors  in  that  the  factors  for  age  groups  60-64,  and  65-69, 
are  averaged  and  then  the  disability  drop-out  rate  is  applied.  This 
is  done  by  creating  a  temporary  vector  called  TEM. 

The  factors  are  then  transformed  from  columns  to  rows  so 
that  further  calculations  can  take  place.  The  resulting  matrix 
FACTOR  contains  the  retirement/death  benefit  factor  for  each  age  group 
from  25-29  to  65-69  for  every  five  years  from  1970  to  2025. 
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In  further  calculations,  the  age  group  is  collapsed  from  a 
five-year  span  to  the  median  age.  Thus  age  group  25-29  in  the  future 
will  be  represented  by  age  27%,  etc.  To  achieve  these  values  each 
pair  of  successive  death  benefit  factors  is  averaged  e.g.  the  factor 
for  age  27%  is  one-half  the  sum  of  factors  for  age  group  25-29  and 
age  group  30-34.  The  factor  for  age  22%  is  determined  by  subtracting 
the  factor  for  age  25  from  age  27%  and  deducting  this  difference  from 
age  25  to  get  the  resulting  factor  for  age  22%.  The  matrix  FACTOR 
now  contains  the  factors  for  ages  22%  to  67%  in  five-year  intervals 
of  age  and  time. 

The  method  for  the  short-run  calculation  of  these  factors 
differs  slightly  and  thus  some  changes  are  made  at  this  point. 
Similarly,  a  linear  interpolation  is  used  to  find  the  factors  for 
every  year  based  on  the  quinquennial  value  calculated  previously. 

Thus  the  matrix  now  contains  factors  for  ages  22%  to  67%  for  every 
year  from  1970  to  2025. 

To  determine  the  factors  beyond  age  65,  it  is  necessary  to 
use  the  value  for  67%  and  escalate  these  by  an  amount  that  allows  for 
pension  index  ratios,  the  retirement  rate,  and  YMPE  levels.  This  is 
done  in  the  vector  ESC1  which  is  the  first  escalation  factor.  This 
file  is  calculated  by  finding  the  initial  retirement  pension  for  each 
year  and  dividing  it  by  a  ratio  of  pension  indices  where  the  pension 
index  in  1967  for  the  purposes  of  calculation  is  100.0. 

Once  these  factors  are  calculated  for  each  year,  they  are 
multiplied  by  the  retirement/death  benefit  factor  for  age  67%  in  that 
year  and  the  escalated  factor  is  then  carried  forward  to  older  age 
groups  by  moving  it  forward  in  time.  Thus  the  retirement/death 
benefit  factor  for  age  67%  in  1980  say,  is  multiplied  by  the  first 
escalation  factor  in  1980  and  this  escalated  value  is  assigned  to 
age  group  67%  in  1980,  age  group  72%  in  1985,  age  group  77%  in  1990, 
etc.  This  process  continues  for  every  year  and  expands  the  matrix 
FACTOR  out  to  the  age  group  90+ . 
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The  matrix  FACTOR  is  then  output  onto  the  disk  for  use  in 
programs  WIDOW. 6  and  DISBN.7. 

The  next  step  in  the  method  is  the  calculation  of  the  death 
benefit  costs.  To  find  these  costs,  the  number  of  deaths  in  each  age 
group  for  every  year  is  determined  and  multiplied  by  the  appropriate 
death  benefit  factor.  This  is  done  in  matrix  NMDTH  where  for  each 
year  the  appropriate  mortality  rate  (1  -  survival  rate)  is  applied  to 
each  age  group  and  sex  population  figure,  and  this  multiplied  by  the 
proper  death  benefit  factor. 

This  amount  is  summed  for  all  ages  up  to  age  62%,  and  this 
sum  is  then  multiplied  by  the  second  escalation  factor  (ESC2)  which 
reflects  the  amount  of  the  initial  retirement  pension  for  each  year, 
but  does  not  include  a  pension  index  ratio  because  the  death  benefit 
factors  up  to  age  62%  were  not  escalated. 

The  cost  amounts  for  ages  67%  to  90+  are  also  summed  and 
this  time  the  total  is  multiplied  by  the  pension  index  for  the  year 
because  it  was  divided  out  in  the  calculation  of  the  first  escalation 
factor . 

The  two  resulting  sums  for  all  age  groups  are  then  combined 
and  multiplied  by  .5  to  account  for  years  of  nil  earnings.  This 
amount  is  further  reduced  by  a  death  reduction  factor  (DREDC)  which 
allows  for  the  ceiling  on  the  death  benefit  of  10  per  cent  of  the 
YMPE  for  the  year  or  one-half  of  the  annual  imputed  retirement  pension. 
This  amount  is  then  totalled  for  both  sexes  and  output  onto  the  disk 
for  use  in  program  FUND. 9  or  may  be  produced  in  tabular  form. 

The  calculation  of  retirement  benefit  costs  requires  over¬ 
writing  that  part  of  the  FACTOR  matrix  for  ages  65+  because  of  the 
slight  differences  in  calculation  of  the  retirement  benefit  factor. 

The  method  of  escalation  for  ages  greater  than  65  is  the  same  as  for 
the  death  benefit  factors,  and  again  short-run  values  for  these 
factors  must  be  provided  by  matrix  RFAC. 
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To  account  for  the  earnings  test  in  age  group  65-69,  the 
retirement  benefit  factor  for  age  67%  is  reduced  by  one-half  for 
males  and  one-quarter  for  females.  These  are  the  values  used  by  the 

I 

Department  of  Insurance  in  its  valuation.  If  the  user  wishes  to 
omit  the  earnings  test  for  his  calculation,  this  section  will  not  be 
called.  Similarly,  if  the  user  wishes  to  alter  the  terms  of  existing 
earnings  test,  the  programming  can  be  changed  to  accommodate  the  new 
actuarial  assumptions. 

The  calculation  of  the  retirement  benefit  costs  is  done  by 
multiplying  the  population  for  each  age  group,  sex,  and  year  by  the 
appropriate  retirement  benefit  factor  and  then  multiplying  this  amount 
by  the  pension  index  to  replace  this  value  that  was  divided  out  in  the 
calculation  of  the  first  escalation  factor.  These  amounts  are  then 
summed  for  all  age  groups  and  for  both  sexes  in  each  year.  A  short 
term  factor  is  applied  to  account  for  the  maturing  aspects  of  the 
Canada  Pension  Plan  until  1975  and  the  resulting  cost  amounts  are  out¬ 
put  onto  the  disk  as  data  for  use  in  program  FUND. 9  or  in  tabular 
form  where  it  is  disaggregated  by  year  and  sex. 

E.  POLICY  VARIABLE  INPUT 


During  the  execution  of  the  program,  the  user  is  asked 
several  policy  questions.  The  first  relates  to  the  type  of  plan  being 
tested.  The  response  is  one  of  the  five  mentioned  above  in  chapter  V 
i.e.  RSCUR,  MICUR,  RSPRO,  MI PRO,  or  TXFPB. 

As  mentioned  earlier,  this  response  automatically  keys  other 
data  sources  to  the  proper  sets  of  economic  assumptions  i.e.  reason¬ 
able  stability  or  moderate  inflation.  The  data  required  includes 
the  pension  index  values,  the  values  of  reduction  factors,  and  the 
YMPE  levels. 

Other  policy  variables  that  must  be  input  include  the  re¬ 
tirement  pension  rate,  the  drop-out  rate  and  the  choice  of  whether 
to  include  the  earnings  test  in  the  calculation  of  retirement  benefit 


costs . 
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The  final  option  to  the  user  is  the  form  of  his  output 
e.g.  in  data  form  for  use  in  FUND. 9  or  in  table  form  by  year  and  sex. 


F.  OUTPUT  FILES 

Each  execution  of  RETBN.4  produces  three  output  files.  i'he 
retirement  benefit  costs  are  prefixed  "RT";  the  death  benefit  costs 
are  prefixed  "DB";  and  the  death  benefit  factors  are  prefixed  "DH". 

The  suffix  to  each  output  file  name  is  composed  of  three  letters  which 
will  depend  upon  the  plan  being  tested  e.g.  for  moderate  inflation 
with  the  proposed  plan,  the  retirement  benefit  costs  are  output  in 
file  RTMIP. 


Each  file  contains  values  for  each  year  from  1970  to  2025 
and  represents  total  figures  when  in  data  form,  or  a  breakdown  by  sex 
when  in  tabular  form. 

G.  TELETYPE  QUESTIONS 

1)  TYPE  IN  PLAN  TO  BE  TESTED: 

Respond  with  one  of  the  five- letter  code  words  outlined  in 
chapter  V. 

2)  TYPE  IN  DROP-OUT  RATE  (0-1): 

Respond  with  a  decimal  value  in  the  proper  range.  The 
statutory  drop-out  rate  is  .15. 

3)  TYPE  IN  RETIREMENT  PENSION  RATE  (0-1): 

Respond  with  a  decimal  value  in  the  proper  range.  The 
statutory  retirement  pension  rate  is  .25. 

4)  DO  YOU  WANT  EARNINGS  TEST?  (YES/NO) : 

Respond  with  YES  or  NO.  The  earnings  test  is  included 
in  the  Canada  Pension  Plan  but  may  be  omitted  as  a  policy 
variable. 

5)  OUTPUT?  ( TABLE/ DATA ) : 

Respond  with  TABLE  or  DATA.  DATA  is  used  when  a  full 
PENSIM  run  is  being  done  to  accommodate  program  FUND. 9. 
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TABLE  is  used  when  a  policy  change  is  being  tested  on  the 
retirement  or  death  benefit  alone. 

6)  ECONOMIC  ASSUMPTION?  (RS/MI) : 

When  the  user  specifies  a  TXFPB  plan,  he  must  tell  the 
program  whether  he  wants  reasonable  stability  or  moderate 
inflation  assumptions. 

H.  NOTES 


This  program  has  a  built-in  clock  function  that  records 
the  time  used  for  execution  (generally  15  seconds  of  CPU  time)  and 
this  is  output  on  the  terminal  when  execution  is  completed.  The 
program  also  types  out  the  names  of  the  disk  files  that  are  generated 
by  the  program. 

Because  of  the  number  of  vectors  and  matrices  that  are  used 
in  the  program,  most  of  which  must  be  retained  throughout,  RETBN.4 
requires  24K  memory  capacity  when  run  on  a  PDP-1G  and  usually  requires 
approximately  five  minutes  of  actual  clock  time  to  run. 
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VII  CONI. 5 


A.  INTRODUCTION 

Program  CONT.5  calculates  the  total  contributions  paid 
into  the  Canada  Pension  Plan  from  1966  to  2025.  This  program  can 
also  be  used  to  determine  provincial  contributions  to  the  CPP  for 
the  same  time  span. 

The  program  has  the  facility  to  test  changes  in  the 
contribution  rate  and  different  methods  of  calculating  the  year's 
basic  exemption.  The  output  can  be  specified  In  a  formatted  file 
or  a  data  file  for  use  in  program  FUND. 9. 


B.  VECTORS  AND  MATRICES 


POP  -  is  the  population  data  matrix  read  in  from  data 
file  ONE.  Parts  of  this  array  are  overwritten 
several  times  in  the  program. 

MMAE  -  contains  the  modified  modified  average  earnings 

matrix  read  in  from  the  appropriate  data  file  that 
matches  the  option  to  be  tested. 

ETADJ  -  contains  the  earnings  test  adjustment  factors. 

PART  -  stores  the  labour  force  participation  rates  for 

the  population.  There  are  two  sets  of  participation 
rates  for  males;  one  for  the  years  1966  to  1985 
and  one  for  1986  to  2025.  There  are  two  groups 
of  four  sets  of  participation  rates  for  females; 
the  first  group  for  moderate  inflation  assumptions 
and  the  second  for  reasonable  stability  assumptions. 

The  four  sets  are  used  for  the  year  groupings  1966” 
1975,  1976-1985,  1986-2005,  and  2006-2025  respectively. 

ABJ  -  contains  adjustment  factors  to  account  for  the  CPP 
overpayment  that  employers  cannot  claim. 

TEMP  -  is  a  utility  array. 

CONRTE  -  contains  the  contribution  rate  for  every  year  from 
1966-2025. 


C.  INPUT  FILES  AND  DATA  STATEMENTS 

The  participation  rates  and  adjustment  factors  stored 
in  the  matrices  PART  and  ADJ  were  developed  by  the  Department  of 
Insurance  and  are  entered  in  data  statements. 
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The  first  two  data  files  that  are  read  in  are  keyed 
off  the  code  word  that  the  user  types  in  response  to  the  first 
question.  The  modified  modified  average  earnings  are  read  in 
from  the  output  file  produced  by  MMAE.3.  The  appropriate  YMPE's 
are  read  in  from  the  output  file  produced  by  INDEX. 2, 

The  remaining  data  are  read  in  from  files  ONE  and  OPSHN. 
ONE  contains  all  the  population  statistics  produced  by  P0P.1. 

OPSHN  is  an  option  file  that  enables  the  user  to  test  various 
methods  of  calculating  the  YBE  and  contribution  rates.  The  first 
three  values  read  in  are  associated  with  the  variable  names  XlYBE, 
KXl,  and  X2YBE.  The  first  entry,  XlYBE,  is  the  value  of  the  flat 
rate  YBE  in  dollars.  If,  as  in  the  proposed  plan,  a  flat  rate  YBE 
is  to  be  tested,  it  would  be  set  at  600.  The  third  entry,  X2YBE, 
is  the  value  of  the  ratio  used  in  calculating  the  YBE  as  a  constant 
proportion  of  the  YMPE.  The  second  entry,  KXl,  is  a  switch  that 
allows  the  user  to  test  either  method  of  calculating  the  YBE  with 
any  of  the  plans.  The  table  below  outlines  the  switch  values  for 
various  YBE  options. 


Code 

Proportional 

Flat  Rate 

RSCUR 

KXl  =  1 

KXl  m  3 

MI  CUR 

KXl  =  2 

KXl  =  4 

RSPRO 

KXl  =  3 

KXl  *  5 

MIPRO 

KXl  «  4 

KXl  =  1 

TXFPB 

KXl  =  5 

KXl  =  2 

If  the  user  wishes  to  understand  the  mechanics  of  this 
switch  he  should  refer  to  statement  999  and  the  vector  FILE  in 
the  program  listing. 

If  a  flat  rate  option  is  being  tested,  the  value  of 
X2YBE,  the  proportional  rate  must  be  set  at  .12  and  if  a  propor¬ 
tional  rate  is  being  tested,  the  value  of  XlYBE  must  be  set  at  600. 
This  step  is  necessary  if  the  user  requires  detailed  contribution 
tables  for  output  because  the  correct  titles  are  keyed  off  these 
values.  If  the  output  is  a  data  file  which  is  read  in  for  the  fund 
calculation,  this  step  can  be  ignored. 
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The  last  sixty  values  (ten  per  line)  stored  in  OPSHN 
are  the  contribution  rates.  They  are  stored  as  decimal  fractions 
e.g.  .036.  This  method  of  entering  the  contribution  rate  allows 
the  user  to  specify  any  contribution  rate  that  is  desired  in  any 
year.  For  a  MIPRO  run  say,  the  contribution  rates  would  all  be 
.036.  If  the  user  wishes  to  test  the  effects  of  changing  the 
contribution  rate  to  .046  in  1986  and  beyond,  then  the  twenty- first 
to  sixtieth  values  would  be  .046. 

D.  METHODOLOGY 

Since  the  volume  of  contributions  paid  into  the  CPP 
are  based  on  a  percentage  of  contributory  earnings  for  the  employed 
population,  the  basic  goal  of  the  program  is  to  estimate  contrib¬ 
utory  earnings  on  an  annual  basis.  The  first  step  towards  this 
goal  is  to  calculate  the  earnings  that  are  exempted  from  contri¬ 
butions.  This  is  accomplished  by  computing  the  YBE  for  every 
year  by  the  method  that  has  been  specified  by  the  user. 

The  labour  force  participation  rates  are  then  multiplied 
by  the  population  statistics  to  determine  the  employed  labour  force 
through  time.  The  working  population  is  subsequently  multiplied  by 
modified  modified  average  earnings  to  obtain  age  grouped  earnings 
through  time.  Since  the  first  age  group  includes  individuals  aged 
15-19,  it  must  be  scaled  to  exclude  those  who  are  15,  16  and  17.  Two 
scale  factors  -  .39  and  .4  -  are  used,  the  first  for  years  before 
2000,  and  the  second  for  the  remainder. 

At  this  point,  the  age  grouped  earnings  are  totalled 
by  year.  These  annual  total  earnings  are  still  in  1966  constant 
dollar  terms  because  the  modified  modified  average  earnings  were 
deflated  in  the  program  MMAE.3.  It  is  here  that  the  economic 
assumptions  enter  the  calculation  of  total  contributions.  The 
grouped  earnings  are  multiplied  by  a  growth  index  derived  by 
dividing  the  YMPE  in  1966(5,000)  into  the  YMPE  of  the  appropriate 
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year.  In  other  words,  this  growth  index  is  similar  to  the  earnings 
index  which  is  specified  by  the  user  in  the  program  INDEX. 2.  Thus, 
whatever  the  assumptions  made  concerning  the  earnings  index,  they 
are  reflected  in  the  YMPE’s  and  consequently,  the  earnings  totals 
for  each  year. 

Annual  contributory  earnings  are  then  calculated  by 
multiplying  the  YBE  by  the  participating  population,  totalling 
the  values  for  each  year  and  subtracting  them  from  the  escalated 
earnings.  An  adjustment  factor  is  included  to  account  for  GPP 
overpayments. 

Finally,  contributory  earnings  are  multiplied  by  the 
contribution  rate  vector,  CONRTE,  to  calculate  annual  contributions 
to  the  CPP.  The  remainder  of  the  program  sets  up  the  format  for 
the  output  files. 


E.  POLICY  VARIABLE  INPUT 


The  YMPE's  used  in  the  program  are  keyed  from  the  code 
word  that  is  entered  in  response  to  the  first  question  in  the 
program. 


As  explained  above  in  section  C,  the  method  of  calcu¬ 
lating  the  YBE  and  the  contribution  rates  are  specified  in  the 
file  OPSHN. 

F.  OUTPUT  FILES 


C0NT.5  produces  a  maximum  of  two  output  files.  Each 
output  file  is  optional.  The  program  will  ask  the  user  if  he 
desires  table  output  which  contains  the  annual  contribution  rate, 
contributions  for  males  and  females,  total  contributions  and  the 
growth  in  total  contributions.  In  addition,  the  user  can  specify 
data  output  for  the  fund  program.  The  table  output  will  be  placed 
in  a  file  called  CONT.  The  data  output  is  placed  in  a  file  that 
matches  the  code  word  entered  at  the  beginning  of  the  program. 
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RSCUR 

- 

RSCCN 

MI  CUR 

- 

MICCN 

RSPRO 

- 

RSPCN 

MIPRO 

- 

MIPGN 

TXFPB 

- 

TFPCN 

The  output  data  file  stores  total  contributions  by 


year. 


G.  TELETYPE  QUESTIONS 

The  user  must  respond  to  all  teletype  questions  for 
execution  to  continue. 

1)  TYPE  IN  PLAN  TO  BE  TESTED: 

Respond  with  one  of  the  five-letter  code  words 
outlined  in  chapter  V.  If  the  user  misspells 
one  of  these  words,  the  terminal  will  reply,  for 
example,  RXPRO? ,  TRY  AGAIN. 

2)  OUTPUT?  (IABLE/MIA) : 

If  the  tabular  output  is  desired,  respond  with 
TABLE;  if  a  data  file  is  desired,  respond  with 
DATA;  and  if  both  are  desired,  respond  with  BOTH. 


H.  NOTES 


C0NT.5  requires  one  change  if  provincial  contributions 
are  to  be  forecast.  It  is  necessary  to  supply  a  set  of  labour 
force  participation  rates  that  are  appropriate  for  the  province 
in  which  the  contributions  are  being  made. 


VIII  WIDOW. 6 


A.  INTRODUCTION 

The  purpose  of  this  program  is  to  generate  values  for 
widows'  benefits  paid  out  under  the  Canada  Pension  Plan  for  the 
period  1968-2025.  The  method  used  in  computing  values  is  identi¬ 
cal  to  the  method  used  by  the  federal  Department  of  Insurance  with 
a  few  exceptions.  These  exceptions  are  due  mainly  to  the  fact  that 
WIDOW. 6  performs  the  calculations  in  one-year  intervals  whereas  the 
Department  of  Insurance  uses  five-year  intervals. 

The  program  was  designed  for  maximum  flexibility  so  that 
the  user  may  test  numerous  schemes,  including  the  four  schemes  out¬ 
lined  in  the  Actuarial  Report  (1969).  When  running  the  program 
from  a  terminal,  the  program  generates  certain  questions  which  the 
user  must  answer.  The  answers  supplied  by  the  user  instruct  the 
program  as  to  which  scheme  is  to  be  tested. 


B.  VECTORS  AND  MATRICES 


AGEDIS  -  this  matrix  contains  coefficients  for  the  distribution 
of  wives  by  age  for  each  age  group  of  males. 

COEFF  -  this  matrix  stores  the  number  of  surviving  widows  for 
each  year  of  widowhood  by  age  group. 

DEATHS  -  this  vector  stores  the  number  of  male  deaths  for  any 
given  year  by  age  group. 

DTHFC  -  this  matrix  contains  the  male  death  benefit  factors 
created  in  the  program  RETBN.4  (see  chapter  VI). 

ERB065  -  this  vector  stores  the  earnings-related  benefits  for 
widows  65  years  of  age  and  over. 

ERBU65  -  this  vector  stores  the  earnings-related  benefits  for 
widows  under  65  years  of  age. 

ESC1  -  this  vector  contains  the  escalation  coefficients  for 
each  year  from  1968  to  2025. 

ESCDBF  -  this  vector  contains  the  escalated  male  death  benefit 
factors  for  a  given  year  for  each  age  group. 

FAC68  -  this  vector  contains  the  male  death  benefit  factors  for 

1968  for  the  first  10  age  groups  .  The  factors 
are  not  calculated  in  RETBN.  4  for  1968-69.  Hence 

the  federal  Department  of  Insurance  figures  are  inserted 

1969  factors  are  interpolated  from  1968  and  1970  factors 
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FFAC  -  this  vector  contains  the  female  death  benefit  factors 
for  each  year  from  1968  to  2025 . 

FRBU65  -  this  vector  stores  the  flat  rate  benefits  for  widows 
under  65  years  of  age. 

MAXPEN  -  this  vector  stores  the  maximum  pension  receivable  in 
each  year  from  1968  to  2025. 

PNIND  -  this  vector  contains  the  pension  indices  for  each  year 
from  1967  to  2025  (1967  =  100.0). 

POP  -  this  matrix  contains  population  figures  and  age  dis¬ 
tribution  for  males  for  each  year  1966-2025. 

PRPMRD  -  this  matrix  contains  coefficients  indicating  the  pro¬ 
portion  of  males  that  are  married  by  age  group 
for  different  periods  in  time. 

PWEWB  -  this  matrix  contains  coefficients  indicating  the  pro¬ 
portion  of  widows  eligible  for  widows  benefits  by 
age  group  for  each  year  1968-2025. 

PWNRP1  -  these  vectors  contain  coefficients  indicating  the  pro- 

PWNRP2  portion  of  widow  beneficiaries  not  receiving  retirement 
pensions  by  age  group  for  years  of  widowhood  1968-69 
(PWNRP1)  and  1970  +  (PWNRP2 ) . 

PMARRY  -  this  matrix  contains  probabilites  that  a  widow  will 

remarry  by  age  group  and  for  different  periods  in  time. 

STOTAL  -  this  vector  stores  the  averages  by  widow's  age  group, 
of  the  number  of  male  deaths  weighted  by  the  es¬ 
calated  male  death  benefit  factor  for  each  male  age  group. 

SURVIV  -  this  matrix  contains  the  quinquennial  survival  proba¬ 
bilities  of  widows  by  age  group  for  different  periods  in 
time . 

SURVM  -  this  matrix  contains  the  one-year  survival  probabilities 
for  males  by  age  group  for  different  periods  in  time. 

YMPE  -  this  vector  contains  the  year's  maximum  pensionable 
earnings  for  each  year  1966-2025. 

OAS  -  this  is  a  3-element  vector  containing 

1)  the  annual  flat  rate  payment  for  the  current 
plan 

2)  the  annual  flat  rate  payment  for  the  pro¬ 
posed  plan  beginning  in  1973 

3)  the  user-specified  proposed  flat  rate  pay¬ 
ment  beginning  in  the  year  specified  by  the 
user. 

ERPCTU  -  these  vectors  are  each  3-element  vectors  containing  the 

ERPCTO  percentage  of  the  benefit  that  is  earnings-related  for 
widows  under  65  (ERPCTU)  and  for  widows  65  and  over. 

The  order  is  as  follows : 

1)  the  percentage  under  the  current  plan 

2)  the  percentage  under  the  proposed  plan  to 
begin  in  1973 

3)  the  user-specified  percentage  beginning  in 
the  year  specified  by  the  user. 


. 
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C.  INPUT  FILES  AND  DATA  STATEMENTS 


This  program  reads  in  numerous  data  files,  some  of  which 
are  dependent  on  the  scheme  being  tested  and  some  of  which  are  not. 

Those  input  files  which  are  independent  of  the  scheme 
being  tested  are: 


ONE 

SURVM 

REMAR 

SURVP 

PWEWB 

The  names  associated  with  each  of  the  schemes  that  the 


program  can  test  are: 


1)  RSCUR 

2)  MICXJR 

3)  RSPRO 

4)  MIPRO 

5)  TXFPB 


reasonable  stability  current  plan 
moderate  inflation  current  plan 
reasonable  stability  proposed  plan 
moderate  inflation  proposed  plan 
all  other  plans 


For  each  scheme,  three  additional  files  are  read  in. 

For  RSCUR:  RSCUR 

RSPNX 
DHRSC 

For  MICUR:  MICUR 

MIPNX 
DHMIC 

For  RSPRO:  RSPRO 

RSPNX 
DHRSP 

For  MIPRO:  MIPRO 

MIPNX 
DHMIP 

For  TXFPE :  TXFPB 

TFPNX 
DHTFP 


Those  variables  which  are  initialized  in  data  statements 

in  the  program  are: 

ACEDIS 
FAC  6  8 
FFAC 
PPPMRD 


The  user  is  reminded  that  before  he  can  run  the  WIDOW. 6  pro¬ 
gram,  he  must  run  the  programs  P0P.1,  INDEX. 2,  MMAE.3,  and  RET BN. 4 
(see  chapters  III  -  VI  for  instructions) . 
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D.  METHODOLOGY 

As  mentioned  earlier,  the  method  used  in  this  program  is 
identical  to  that  used  by  the  federal  Department  of  Insurance  with 
a  few  differences.  These  differences  are  outlined  in  later  para¬ 
graphs  of  this  section. 

The  program  uses  the  year  of  widowhood  as  the  basis  for 
all  calculations,  performing  all  calculations  separately  for  each 
year  of  widowhood.  The  first  task  of  the  program  is  to  determine 
the  number  of  women  who  become  widows  in  any  given  year.  This  re¬ 
quires  the  calculation  of  the  number  of  male  deaths  in  that  year 
(calculated  as  the  difference  between  the  size  of  the  male  popula¬ 
tion  in  that  year  and  the  number  of  males  who  survive  until  the 
next  year).  The  number  of  widows  is  simply  the  proportion  of 
those  males  who  were  married  at  the  time  of  their  death.  The  next 
step  is  to  compute  for  this  year  of  widowhood  the  number  of  widows 
that  are  still  alive  in  each  of  the  succeeding  years  until  2025.  This 
is  accomplished  by  applying  survival  probabilities  to  the  number  of 
widows  for  various  age  groups  and  for  various  periods  in  time. 

To  this  point  in  the  program,  the  methods  of  this  program 
and  of  the  Department  of  Insurance  are  identical  with  the  exception 
that  the  program  performs  calculations  in  one-year  intervals  rather 
than  five-year  intervals.  However,  since  many  of  the  coefficients  of 
probability  for  survival  and  remarriage  etc.  used  in  the  program 
are  available  only  in  five-year  intervals,  values  for  these  coefficients 
for  the  missing  years  are  interpolated  linearly  within  the  program. 

Having  computed  the  number  of  surviving  widows,  the  actual 
benefits  can  be  calculated.  It  is  at  this  point  that  the  most  strik- 
ing  difference  between  the  two  methods  (WIDOW. 6  versus  the  Department 
of  Insurance)  occurs.  This  will  become  apparent  in  the  following  para¬ 
graphs. 
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As  mentioned  before,  the  basis  for  all  calculations  is 
the  year  of  widowhood.  The  Department  of  Insurance  performs  cal¬ 
culations  in  five-year  intervals  (1970,  1975,  1980,  etc.)  with  one 
exception  (1968).  The  Department  of  Insurance  divides  the  ages 
of  the  widows  in  any  year  of  widowhood  into  16  age  groups  (under  20, 
20-24,  25-59,  ....,  80-84,  85-89,  90  and  over).  With  the  exception 
of  the  first  and  last,  these  age  groups  are  five-year  groups. 

WIDOW. 6  can  perform  calculations  for  every  year  of  widowhood  from 
1968  to  2025  (one-year  Intervals).  However,  the  five-year  age  groups 
for  widows  defined  above  are  retained  in  WIDOW. 6  since  the  interpo¬ 
lated  population  projections  used  by  WIDOW. 6  were  prepared  using 
these  five-year  age  groups.  The  use  of  five-year  intervals  and  five- 
year  age  groups  is  an  obvious  computational  convenience.  The  only 
problem  case  is  for  1968.  WIDOW. 6,  with  its  one-year  intervals,  must 
make  certain  assumptions  before  proceeding  with  the  calculations. 

As  an  example,  consider  the  calculation  of  the  flat  rate 
portion  of  the  widows’  benefit.  This  payment  is  made  only  to  widows 
under  the  age  of  65  (at  age  65,  this  is  replaced  by  the  Old  Age  Se¬ 
curity).  Hence,  the  flat  rate  benefit  is  concerned  only  with  the 
first  ten  of  the  sixteen  age  groups  defined  above  (from  under  20  up 
to  60-64) .  The  flat  rate  benefit  for  any  age  group  in  a  given  year 
is  the  product  of  the  number  of  surviving  widows  in  that  age  group 
for  that  year,  the  percentage  of  widows  in  that  age  group  who  are 
eligible  for  widows'  benefits,  and  the  user-specified  value  of  the 
flat  rate  payment.  The  total  flat  rate  benefit  for  that  year  is  the 
sum  of  the  flat  rate  benefits  for  each  age  group. 

For  the  year  of  widowhood  1970,  the  Department  of  Insurance 
computes  flat  rate  benefits  for  the  years  1970.  1975,  1980,  etc.  (five- 
year  intervals).  For  1970,  the  calculation  will  include  the  age  group 
60-64.  But,  in  1975,  the  surviving  widows  of  this  age  group  will  be 
five  years  older  (i.e.  in  the  65-69  age  group)  and  will  receive  OAS. 
However,  the  surviving  widows  of  the  55-59  age  group  in  1970  will  be 
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60-64  in  1975.  Similarly,  the  50-54  age  group  in  1970  will  be 

60- 64  in  1980,  and  so  on.  Hence,  for  the  year  of  widowhood  1970, 
the  flat  rate  benefit  calculation  will  include  all  age  groups  up  to 
and  including  60-64  in  1970,  55-59  in  1975,  50-54  in  1980,  and  so  on. 
Similar  statements  can  be  made  for  the  years  of  widowhood  after 

1970  as  computed  by  the  Department  of  Insurance.  The  year  of 
widowhood  1968  is  the  only  problem  year.  The  Department  of 
Insurance  calculates  benefits  for  1968,  1970,  1975,  1980,  etc. 
Consider  those  widows  in  the  60-64  age  group  in  1968.  In  1970, 
the  surviving  widows  of  this  group  will  be  two  years  older.  This 
would  place  them  in  a  62-66  age  group.  Since  no  62-66  age  group 
has  been  defined,  the  Department  of  Insurance  assumes  that  40  per 
cent  (those  aged  65  and  66)  of  the  widows  are  receiving  OAS  in 
1970  and  that  60  per  cent  (those  aged  62,  63,  64)  of  the  widows 
are  still  in  the  60-64  age  group.  Similarly,  in  1975,  the  surviving 
widows  for  the  55-59  age  group  of  1968  are  62-66  years  old.  The 
same  sixty-forty  treatment  is  applied  in  this  case. 

WIDOW. 6  uses  similar  assumptions,  but  on  a  much  more 
widespread  basis.  For  the  year  of  widowhood  1968,  WIDOW. 6  cal¬ 
culates  benefits  for  each  year  from  1968  on.  Consider  those 
widows  in  the  60-64  age  group  in  1968.  In  the  years  from  1969  to 
1975,  the  surviving  widows  of  this  group  will  be  in  the  age  groups 

61- 65,  62-66,  63-67,  64-68,  65-69,  66-70,  and  67-71,  respectively. 
Hence,  in  1969  only  80  per  cent  of  the  surviving  widows  will 
receive  flat  rate  benefits,  in  1970  60  per  cent,  in  1971  40  per 
cent,  and  in  1972  20  per  cent.  By  1973,  all  of  the  surviving 
widows  of  the  60-64  age  group  will  be  65  or  over  and  will  receive 
no  further  flat  rate  benefits.  But,  the  survivors  of  the  55-59 
age  group  of  1968  make  up  the  60-64  age  group  in  1973.  Thus  it 
starts  all  over  again.  In  1974,  only  80  per  cent  of  the  surviving 
widows  (of  the  55-59  age  group  of  1968)  will  receive  flat  rate 
benefits  and  so  on. 


m 


. 


50 


This  is  the  method  used  by  WIDOW. 6.  It  has  the  advantage 
that  it  treats  all  years  of  widowhood  in  the  same  manner.  There 
are  no  special  cases  for  special  years. 

A  further  comparison  of  the  two  methods  can  be  obtained 
by  examining  one  of  the  worksheets  prepared  by  the  Department  of 
Insurance.  Consider  the  worksheet  for  the  year  of  widowhood  1968. 

On  that  section  of  the  page  dealing  exclusively  with  the  calculation 
of  the  benefit,  there  is  a  "diagonal"  line  running  from  the  top 
right-hand  corner  to  the  bottom  left-hand  corner.  This  line  moves 
downwards  in  steps  of  five  years  for  each  five-year  age  group  when 
moving  from  right  to  left  on  the  page.  If  the  "diagonal"  line 
associated  with  the  WIDOW. 6  method  were  superimposed  on  the  sheet, 
it  would  move  downwards  in  five  steps  of  one  year  each  for  each 
five-year  age  group  when  moving  from  right  to  left  on  the  page. 

The  earnings-related  portion  of  the  widows’  benefits  has 
two  components.  First,  the  payment  to  widows  under  the  age  of  65 
for  any  given  year  is  dependent  upon  the  number  of  widows  surviving 
in  that  year  and  upon  the  user-supplied  percentage  of  benefits  that 
are  earnings-related.  Second,  the  payment  to  widows  65  years  of 
age  and  over  is  calculated  in  a  similar  manner  to  the  under  65 
payment.  However,  since  a  known  proportion  of  widows  65  and  over 
are  receiving  other  forms  of  retirement  pensions,  their  earnings- 
related  benefit  is  reduced  by  a  certain  factor.  This  factor,  called 
the  reduction  factor,  is  calculated  in  WIDOW. 6  using  the  same 
method  as  the  Department  of  Insurance. 

The  discussion  in  earlier  paragraphs  pertaining  to  the 
differences  in  the  two  methods  of  calculating  the  flat  rate  benefit 
applies  equally  to  the  earnings-related  benefits.  Widows  under  the 
age  of  65  receive  the  flat  rate  payment  and  the  earnings-related 
payment.  Widows  65  years  of  age  and  over  receive  OAS  and  an  earn¬ 
ings-related  payment  (which  may  be  reduced  by  a  reduction  factor). 


■ 
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The  last  step  in  the  program  is  the  actual  "adding  up" 
of  the  benefits  calculated  for  each  year  of  widowhood  to  arrive 
at  the  total  benefits  (both  flat  rate  and  earnings-related)  paid 
out  for  each  year  in  the  period  1968  to  2025.  The  "adding  up" 
procedure  of  the  Department  of  Insurance  requires  the  use  of  a 
high  order  interpolation  formula  with  pre-determined  weights. 

WIDOW. 6,  due  to  its  design,  requires  only  a  simple  addition  of 
numbers . 

E.  POLICY  VARIABLE  INPUT 

Most  of  the  policy  variables  which  influence  the  cal¬ 
culation  of  the  widows’  benefits  are  initially  specified  when 
running  INDEX. 2,  MMAE.3,  and  RETBN.4.  However,  certain  policy 
variables  are  unique  to  WIDOW. 6.  First  of  all,  the  user  specifies 
a  new  proposed  annual  flat  rate  payment  and  the  year  he  wishes  that 
it  begin.  Also,  the  user  specifies  new  percentages  of  benefits 
that  are  earnings-related  for  widows  under  65  years  of  age  and  for 
widows  65  and  over.  Under  the  current  plans  the  program  assumes 
that  the  annual  flat  rate  is  300  dollars  and  that  it  does  not 
change.  Under  the  proposed  plan,  the  program  assumes  that  the 
annual  flat  rate  becomes  960  dollars  in  1973.  Under  the  current 
plan,  the  program  assumes  that  the  percentages  of  benefits  that 
are  earnings-related  for  widows  under  65  and  for  widows  65  and 
over  are  37.5  and  60  per  cent  respectively,  and  that  they  do  not 
change.  Under  the  proposed  plan,  these  percentages  both  become 
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F.  OUTPUT  FILES 

Each  run  of  this  program  produces  one  output  file.  The 
name  of  the  output  file  depends  on  the  plan  being  tested. 


RSCUR 

MICUR 

RSPRO 

MIPRO 

TXFPB 


RSCWD 

MICWD 

RSPWD 

MIPWD 

TFPWD 


. 
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In  addition,  when  the  run  is  complete,  a  message  will 
be  printed  on  the  terminal  giving  the  "END  OF  RUN"  statement,  the 
CPU  time  required  for  the  run,  and  the  name  of  the  output  file. 

G.  TELETYPE  QUESTIONS 

1)  TYPE  IN  PLAN  TO  BE  TESTED  - 

The  user  types  in  one  of  the  5  possible  5-digit  codes 
mentioned  in  chapter  V  depending  on  the  plan  to  be 
tested. 

la)  TYPE  IN  GROWTH  RATE  FOR  AVERAGE  EARNINGS  AFTER  1975 

(e.g.,  FOR  5.5%,  TYPE  1.055)  - - 

This  question  appears  only  if  TXFPB  is  specified  above, 
and  is  self-explanatory.  The  program  assumes  that  for 
reasonable  stability,  the  value  is  1.035,  and  that  for 
moderate  inflation  the  value  is  1.055. 

2)  TYPE  IN  RETIREMENT  PENSION  RATE  (0-1)  - 

Generally ,  the  answer  to  this  question  is  25  per  cent. 
Hence,  the  user  must  type  in  .25  (i.e.  in  decimal  form). 

3)  TYPE  IN  STARTING  YEAR  (DEFAULT  IS  1968)  - 

The  user  types  in  the  year  of  widowhood  for  which  cal¬ 
culations  are  to  begin.  The  year  must  be  in  the  range 
1968  to  2025  inclusive. 

4)  TYPE  IN  PROPOSED  ANNUAL  FLAT  RATE  PAYMENT,  AND  THE  YEAR  IT 

BEGINS  - 

See  chapter  VIII,  section  E  for  the  program's  basic 
assumptions  about  flat  rate  payments. 
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The  following  is  a  list  of  suggested  user  responses 
depending  on  the  scheme  being  tested: 

i)  If  the  user  is  running  a  current  plan  (RSCUR  or 

MICUR) ,  he  should  type  in  300,  1968  in  response  to 
this  question. 

ii)  If  the  user  is  running  a  proposed  plan  (RSPRO  or 

MIPRO) ,  he  should  type  in  960,  1973  in  response  to 
this  question. 

iii)  If  the  user  is  running  a  different  plan,  he  can 

specify  other  proposals.  For  example,  under  RSPRO, 
MIPRO,  or  TXFPB,  if  the  user  types  in  x,y  where  y> 
1973,  then  the  program  will  generate  flat  rate  pay¬ 
ments  of  300  dollars  beginning  in  1968,  960  dollars 
beginning  in  1973,  and  x  dollars  beginning  in  the 
year  y. 

5)  TYPE  IN  PERCENTAGE  (BETWEEN  0  AND  1)  OF  BENEFIT  THAT  IS  EARNINGS 
RELATED 

(1)  FOR  WIDOWS  UNDER  65  - 

(2)  FOR  WIDOWS  65  AND  OVER  - 

BEGINNING  IN  THE  YEAR 

See  chapter  VIII,  section  E  for  the  programs's  assumptions 
about  eamings-related  benefits. 

The  following  is  a  list  of  suggested  user  responses 
depending  on  the  scheme  being  tested: 

i)  If  the  user  is  running  a  current  plan  (RSCUR  or 
MICUR) ,  he  should  type  in 

.375 

.  6 

1968 

in  response  to  this  question. 

ii)  If  the  user  is  running  a  proposed  plan  (RSPRO  or 

MIPRO) ,  he  should  type  in 

.75 

.75 

1973 

in  response  to  this  question. 


■ 
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iii)  If  the  user  is  running  a  different  plan,  he  can 

specify  other  proposals.  For  example,  under  RSPRO, 

MIPRO  or  TXFPB,  if  the  user  types 

x 

z 

y 

where  y>1973  and  0<x,z<l,  then  the  program  will  generate 
earnings  related  payments  according  to  the  following 
percentage  (expressed  as  decimals) : 


Widows  under  65 

Widows  65  and  Over 

Beginning  in  1968 

.375 

.6 

1973 

.75 

.75 

y 

X 

«-* 

H.  NOTES 

The  program  consists  of  a  main  program  and  one  sub¬ 
routine,  entitled  REDFAC.  The  purpose  of  this  subroutine  is  to 
compute  the  reduction  factors  for  the  calculation  of  the  earnings- 
related  benefit  for  widows  65  years  of  age  and  over. 

The  program  requires  12K  of  core  and  generally  uses 
about  80  seconds  of  CPU  time  for  complete  execution.  When 
running  the  program,  the  user,  after  answering  all  questions,  may 
have  to  wait  as  long  as  five  minutes  (clock  time)  before  receiving 
the  ’END  OF  RUN’  message.  This  delay  is  normal  and  its  length 
depends  on  the  workload  in  the  computer. 

When  preparing  to  run  this  program,  it  is  recommended 
that  the  user  make  use  of  the  Run  Sheet  for  the  program. 

The  WIDOW. 6  program  does  not  produce  results  that  are 
identical  to  those  produced  by  the  federal  Department  of  Insurance. 
The  reason  for  these  differences  is  related  directly  to  the  different 
time  intervals  for  which  the  calculations  have  been  made  (WIDOW7. 6 
covers  a  one-year  interval  while  the  Department  of  Insurance  covers 
a  five-year  interval) . 


IX  DISBN.7 


A.  INTRODUCTION 

Program  DISBN.7  calculates  the  disability  pensions  in  the 
PENSIM  model.  It  also  calculates  the  pension  paid  to  the  husband  or 
wife  of  a  disabled  contributor  if  the  proposed  scheme  is  being  tested 
or  if  the  user  desires  it  as  an  option  in  some  other  scheme.  The 
program  has  the  facility  to  test  different  flat  rate  payments  and 
different  ratios  of  the  imputed  retirement  pension  for  the  earnings- 
related  portion  of  the  disability  pension. 


B.  VECTORS  AND  MATRICES 


POP  -  contains  the  population  data  read  in  from  ONE. 

DTHFAC  -  contains  the  death  factors  beginning  in  age  group  20-24 
and  incrementing  in  five-year  intervals  to  the  90+  age 
group.  These  factors  ara  a  result  of  output  produced 
by  RETBN.4. 

PRVRTE  -  stores  two  sets  of  disability  prevalence  rates.  The 

first  set  is  used  for  the  earnings-related  calculation 
and  was  developed  by  the  Department  of  Insurance.  The 
second  set  is  used  for  the  calculation  of  the  flat  rate 
disability  benefits  and  is  found  in  Schedules  2  and  3 
of  the  1964  Actuarial  Report.  ^  In  each  set  there  are 
six  quinquennial  year  groupings  and  nine  age  groupings. 
The  values  for  1975  are  used  from  1970  to  1979. 


DISINS  -  contains  four  proportions  indicating  the  ratio  of  con¬ 
tributions  made  by  persons  insured  for  disability. 

The  first  is  for  males  and  the  remaining  three  are  for 
females  and  pertain  to  the  years  1970-1979,  1980-1989 
and  1990+  respectively. 

PROP  -  contains  ten  sets  of  proportions  of  total  population 

insured  for  disability  benefits.  These  are  used  in  the 
flat  rate  calculations.  The  first  two  sets  are  for 
males  for  the  years  1970-1989  and  1990+  using  reason¬ 
able  stability  or  moderate  inflation  assumptions.  For 
females  there  are  two  groups  of  four  sets  each,  one 
group  for  moderate  inflation  and  one  group  for  reason¬ 
able  stability.  The  four  sets  pertain  to  the  year 
intervals  1970-1979,  1980-1989,  1990-2009,  and" 2010+ 
respectively.  The  other  dimension  of  the  array  is  for 
the  nine  age  classes  which  are: 


20  - 

24 

45  - 

49 

25  - 

29 

50  - 

54 

30  - 

34 

55  - 

59 

35  - 

39 

60  - 

64 

40  - 

44 

department  of  National  Health  and  Welfare.  The  Canada  Pension  Plan: 
Actuarial  Report,  November  1964,  p.  81. 
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DISFR  -  stores  the  disability  flate  rate  calculations. 

YMPE  -  contains  the  appropriate  YMPE's  for  the  scheme  being 
tested. 

PNIND  -  contains  the  pension  index  that  corresponds  to  the 
scheme  being  tested. 

DISERN  -  stores  the  disability  earnings-related  calculations. 

PHWHWC  -  is  an  acronym  for  proportion  of  husbands  and  wives  at 
home  with  children.  The  vector  is  used  in  the  com¬ 
putation  of  wives'  benefits  and  was  developed  by  the 
Department  of  Insurance. 

FACTOR  -  contains  the  proportion  of  wives  entitled  to  wives' 
benefits . 


FMTH65  -  contains  the  number  of  females  per  1000  married  to 

husbands  over  age  65  who  were  disabled  at  age  65  and 
continue  to  meet  the  disability  test.  This  data  was 
developed  by  the  Department  of  Insurance. 

WIFE BN  -  is  used  in  the  calculation  of  wives’  benefits. 


OAS  -  is  a  vector  which  contains  the  current  plan  flat  rate 
payment  in  1968,  the  proposed  plan  flat  rate  payment 
in  1973  and  a  user-specified  flat  rate. 


C.  INPUT  FILES  AND  DATA  STATEMENTS 


There  are  four  data  files  read  into  DISBN.7.  As  in  other 
programs  in  the  PENSIM  model,  three  of  these  files  are  keyed  from  the 
code  word  entered  at  the  beginning  of  the  program.  These  three  files 
contain  the  death  benefit  factors,  YMPE's  and  the  pension  indices  re¬ 
spectively.  The  code  words  govern  the  following  files: 


DEATH  BENEFIT 

PENSION 

YMPE 

FACTORS 

INDEX 

RSCUR 

DHRSC 

RSPNX 

RSPRO 

DHRSP 

MICUR 

DHMIC 

M1PNX 

MI  PRO 

DHMIP 

TXFPB 

DHTFP 

TFPNX 

In  addition  the  population 

data  is  read  in 

from  file  ONE. 

D .  METHODOLOGY 


The  initial  operation  of  the  program  is  common  to  both  the 
computation  of  earnings-related  and  flat  rate  pensions.  The  first 
age  group  is  scaled  to  account  for  those  participants  who  are  in  the 
22-24  group.  Subsequently,  the  population  is  multiplied  by  the 
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appropriate  prevalence  rates  to  determine  the  numbers  of  persons  to 
whom  the  disability  pension  will  apply.  At  this  point  the  two  calcu¬ 
lations  diverge.  The  earnings-related  portion  of  the  disability  benefit 
is  multiplied  by  the  death  benefit  factor  to  incorporate  a  lifetime 
earnings  relation  for  the  imputed  retirement  pension.  The  flat  rate 
portion  is  multiplied  by  the  proportion  insured  for  disability  to 
determine  total  recipients  of  the  flat  rate  portion  in  every  year. 

These  values  are  then  copied  into  another  matrix  for  use  in  the  wives' 
benefit  calculation. 

Both  benefits  are  then  totalled  for  all  the  age  groups  for 
each  year.  The  costs  are  determined  by  multiplication  by  the  annual 
flat  rate  amounts  for  the  flat  rate  portion  and  by  the  ratio  of  the 
imputed  retirement  pension  for  the  earnings-related  portion.  The 
latter  is  escalated  by  the  growth  rate  of  the  three-year  moving  aver¬ 
age  of  the  YMPE's  and  the  former  by  the  pension  index. 

If  the  user  desires  a  wives'  pension,  he  indicates  this  to 
the  computer  in  response  to  a  teletype  question.  Since  the  number  of 
wives  under  65  whose  husbands  have  been  disabled  has  been  calculated 
it  is  only  necessary  to  compute  the  number  over  65.  To  accomplish 
this  the  number  of  females  over  65  is  multiplied  by  the  ratio  in¬ 
dicating  the  number  of  females  married  to  husbands  over  65  who  were 
disabled  at  age  65  and  continue  to  meet  the  disability  test.  It  is 
now  necessary  to  determine  the  number  of  wives  with  disabled  husbands 
who  have  children.  By  multiplying  the  total  number  of  wives  with 
disabled  husbands  by  the  proportion  of  husbands  and  wives  at  home  with 
children,  the  number  of  wives  eligible  for  the  benefit  is  determined. 

The  annual  flat  rate  pension  is  multiplied  by  these  values  to  cost  the 
benefit. 

E.  POLICY  VARIABLE  INPUT 

Economic  assumptions  are  entered  in  the  model  through  the 
input  of  the  YMPE's  and  the  pension  indices.  If  the  user  is  running 
a  TXFPB  option,  the  program  inquires  if  moderate  inflation  or  reasonable 
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stability  assumptions  are  desired.  With  this  information  the  program 
can  use  the  appropriate  proportion  of  the  total  population  insured 
for  disability. 

The  choice  of  the  proper  YMPE  and  pension  index  keys  off 
the  initial  code  word  entered. 


YMPE 

PENSION  INDEX 

MI  PRO 

MIPNX 

MICUR 

RS  PRO 

RSPNX 

RSCUR 

TXFPB 

TFPNX 

During  the  courses  of  execution  of  the  program  the  user  must 
indicate  the  flat  rate  value  of  disability  benefits  and  the  ratio  of 
the  retirement  pension  for  the  earnings-related  portion. 


F.  OUTPUT  FILES 


The  program  produces  two  output  files;  the  first  for  dis¬ 
ability  benefits  and  the  second  for  wives'  benefits.  The  output  file 
for  disability  benefits  stores  the  earnings-related  portion  first  and 
then  the  flat  rate  portion.  If  no  wives'  benefits  are  desired,  as  in 
the  current  plan,  then  this  output  file  is  filled  with  zeros.  The  out¬ 
put  files  produced  are: 


YMPE  CODE 

DISABILITY  PENSION 

WIVES'  PENSION 

RSCUR 

DSRSC 

RSCWF 

MICUR 

DSMLC 

MICWF 

RSPRO 

DSRSP 

RSPWF 

MI  PRO 

DSMIP 

MLPWF 

TXFPB 

DSTFP 

TFPWF 

The  values  stored  in  these  files  are  for  the  years  1970 


to  2025. 


g.  teletype  questions 


Before  execution  will  continue  the  user  must  respond  to 
the  following  questions: 

1)  TYPE  IN  PLAN  TO  BE  TESTED: 

Respond  with  one  of  the  five-letter  code  words  outlined  in 
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chapter  V.  If  the  user  misspells  one  of  these  words,  the 
terminal  will  reply  f°r  example,  RXPRO?  TRY  AGAIN. 

2)  ECONOMIC  ASSUMPTION  -  (RS/MI): 

Respond  with  reasonable  stability  (RS)  or  moderate  inflation 
(MI).  This  question  is  asked  if  the  TXFPB  option  is  specified. 

3)  ANNUAL  FIAT  RATE  BENEFIT  AND  YEAR  IT  BEGINS: 

Respond  with  a  value  for  the  flat  rate  benefit  and  the  year 

this  benefit  is  to  commence.  For  example,  if  the  annual- 

flat  rate  is  to  be  $2000  in  1990,  type  in  2000.  1990.  If  the 

user  is  running  a  current  plan  option  the  flat  rate  is  set  at 

$300  until  the  year  the  user  wishes  to  change  it.  If  it  is 

not  to  be  changed,  300.  1967  should  be  typed  in.  If  the  user 

is  running  a  proposed  plan  option  the  flat  rate  is  set  at 

$300  up  to  1973,  $960  from  1973  to  the  year  the  user  wishes 

to  change  It.  If  2000.  1980  was  entered,  the  costing  would 

use  the  following  values  in  the  years  indicated: 

$  300  1970  -  1972 

$  960  1973  -  1979 

$2000  1980  -  2025 

If  no  change  is  to  be  made  in  the  proposed  plan,  the  user 

would  enter  960.  1973.  When  a  TXFPB  option  is  specified, 

the  following  additional  questions  result. 

3a)  FLAT  RATE  -  (CURRENT/PROPOSED): 

If  current  is  entered  the  flat  rate  payment  option  will 

operate  as  the  current  plan  in  question  3.  If  proposed  is 

eixtered,  the  option  will  operate  as  the  proposed  plan. 

4)  WIVES'  BENEFITS  (YES/NO): 

Self-explanatory  response. 

5)  RATIO  OF  IMPUTED  RETIREMENT  PENSION  AND  YEAR  IT  BEGINS: 

Follow  the  same  procedure  as  for  question  3. 

5a)  EARNINGS  RELATED  -  (CURRENT/ PROPOSED) 

Follow  the  same  procedure  as  for  question  3a. 
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H.  NOTES 

In  section  G  there  is  no  question  pertaining  to  the  amount 
of  the  wives'  benefits.  They  are  always  assumed  to  be  identical  to 
the  flat  rate  disability  pension  except  in  the  case  where  there  is  no 
wives'  benefits  at  all.  If  the  user  wishes  to  alter  wives'  benefits 
to  some  other  value,  a  programming  change  is  necessary  to  DISBN.7. 

As  it  currently  operates,  DISBN.7  calculates  wives'  benefits  on  the 
basis  of  $960  in  1973  and  escalates  it  to  the  year  that  a  change  takes 
place.  If  a  current  plan  Is  specified,  there  should  be  no  wives' 
benefits.  If  these  benefits  are  specified  and  current  option  is  In 
effect,  the  wives'  pensions  will  be  set  at  $960  until  it  is  changed. 


X  CHILD . 8 


A.  INTRODUCTION 

CHILD. 8  is  the  eighth  program  in  the  PENSIM  model.  It 
calculates  the  benefit  costs  for  children  who  have  been  orphaned 
by  the  death  of  their  father  (regardless  of  whether  their  mother 
survives)  and  for  children  whose  fathers  have  been  totally  disabled. 

The  program  calculates  these  benefits  under  various 
user  specified  options.  Benefits  are  projected  for  the  years 
1968  to  2025  for  orphans  and  for  the  years  1970  to  2025  for  children 
of  disabled  beneficiaries. 


B.  VECTORS  AND  MATRICES 


DUMMY  •=  is  a  dummy  vector  which  is  used  to  skip  over  the 

population  data  that  is  not  needed  in  the  program. 

POP  -  contains  the  population  data  read  in  from  the  data 
file  ONE.  Only  the  first  four  age  groups  of  each 
sex  are  used.  They  are: 

0-4 
5  -  9 

10  -  14 

15  -  19 

PROS  -  contains  the  probabilities  of  being  an  orphan  for 

the  four  age  groups.  The  probabilities  are  for  the 
years  1968,  1970,  1975,  1980  etc.  to  2025  in  five- 
year  intervals.  These  probabilities  were  developed 
by  the  Department  of  Insurance,  Ottawa. 

PNIND  -  contains  the  appropriate  pension  index. 

ADJ  -  contains  adjustment  factors  to  scale  the  first  five 
years  of  orphans  benefits  so  that  they  will  be  in 
line  with  actual  trends. 

SDFIFD  -  contains  the  percentage  of  surviving  disabled  fathers 
insured  for  disability  for  the  first  four  age  groups 
and  for  the  years  1975,  1980,  1990,  1995  and  2000  plus. 
This  data  was  developed  by  the  Department  of  Insurance. 

PROBl  -  contains  the  linearly  interpolated  values  of  PROS 
for  the  years  1968  to  2025. 

PR0B2  -  contains  the  linearly  interpolated  values  of  SDIFID 
for  the  years  1970  to  2025. 

ORPHBN  -  is  used  for  the  calculation  of  orphans’  benefits. 

CHLDBN  -  is  used  for  the  calculation  of  children's  benefits. 

YEAR  -  contains  the  years  1968  to  2025. 

-  contains  the  input  key  words  and  output  data  file 
titles. 


FILE 


■ 
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C.  INPUT  FILES  AND  DATA  STATEMENTS 

The  contents  of  the  arrays  SBFXFB  and  PROS  are  entered 
in  data  statements  at  the  beginning  of  the  program,, 

The  first  data  read  in  are  the  population  statistics* 

The  first  four  age  groups  for  males  are  read  in;  the  remaining 
statistics  for  males  are  skipped  and  then  the  first  four  age  groups 
for  females  are  read  in.  Subsequent  to  reading  the  population 
statistics ,  the  program  reads  in  the  user  specified  pension  index. 

D.  METHODOLOGY 


The  program  contains  two  logically  separate  sections; 
the  first  calculates  orphans'  benefits  and  the  second  calculates 
children's  benefits.  One  of  the  first  operations  common  to  both 
sections  is  a  scaling  of  the  age  group  15-19.  Since  the  CPP 
makes  payments  to  children  who  are  less  than  18,  it  is  necessary 
to  scale  this  age  group.  The  scale  factor  used  is  .6. 

After  the  scaling  the  program  begins  to  calculate 
orphans'  benefits*  Since  the  probabilities  of  being  an  orphan 
are  given  in  five-year  intervals,  it  is  necessary  to  interpolate 
values  for  the  years  between  the  intervals.  The  program  uses  a 
linear  method  to  interpolate  these  values.  To  calculate  the 
number  of  orphans  in  any  year,  these  probabilities  are  multiplied 
by  the  corresponding  population  statistics.  The  number  of  orphans 
are  then  totalled  for  each  age  group.  To  cost  the  benefits,  the 
annual  payment  made  to  orphans  is  multiplied  by  the  number  of 
orphans. 

The  calculation  of  children's  benefits  is  very  similar. 
Instead  of  interpolating  probabilities  of  being  an  orphan,  the 
percentage  of  surviving  disabled  fathers  insured  for  disability 
are  interpolated  using  the  same  method  as  before. 
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Economic  assumptions  enter  the  computation  via  the 
pension  index  which  escalates  the  annual  benefits  paid  to  orphans 
and  children. 


E.  POLICY  VARIABLE  INPUT 


As  in  previous  programs  in  the  PENSIM  model,  CHILD. 8 
expects  one  of  the  five  code  words  before  execution  will  continue. 
Unlike  other  programs,  CHILD. 8  does  not  read  in  the  YMPE's.  The 
only  policy  variable  the  program  uses  is  the  pension  index.  Two 
assumptions  are  implied  in  this  index.  If  the  options  being 
tested  assume  moderate  inflation,  then  the  pension  index  will  grow 
at  its  current  two  per  cent  maximum.  In  addition,  the  maximum 
can  be  altered  to  suit  the  user's  options.  These  assumptions  are 
specified  in  the  program  INDEX. 2.  The  code  words  call  the  following 
files  for  the  pension  index: 


MIPRO 
MI  CUR 


MXPNX 


RSPRO 

RSCUR 


RSPNX 


TXFPB  -  TFPNX 


During  the  course  of  execution  of  the  program,  the  user 
must  indicate  the  flat  rate  values  of  the  orphans'  and  children's 
benefits  so  that  the  costs  of  these  benefits  can  be  calculated. 


F.  OUTPUT  FILES 


The  program  produces  one  output  file  that  contains 
the  calculated  values  for  both  orphans'  and  children's  benefits. 

In  the  output  file,  the  fifty-eight  values  for  orphans'  benefits 
are  output  first,  followed  by  the  fifty-eight  values  for  children's 
benefits.  The  program  calculates  values  for  orphans'  benefits 
from  1968  to  2025  while  children's  benefits  are  calculated  from 
1970  to  2025.  As  a  result,  the  first  two  entries  of  the  children's 


benefits  are  zero 
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The  name  of  the  output  file  produced  is  keyed  off  the 


original  code  word. 


RSCUR  - 

RSCCH 

MXCUR  - 

MICCH 

RSPRO  - 

RSPCH 

MI PRO  - 

MXPCH 

TXFPB  - 

TFPCH 

G.  TELETYPE  QUESTIONS 

For  execution  to  continue  the  following  questions 


must  be  answered. 


1)  TYPE  IN  PLAN  TO  BE  TESTED: 

Respond  with  one  of  the  five” letter  code  words 
outlined  in  chapter  V.  If  the  user  misspells 
one  of  these  words ,  the  terminal  will  reply  for  example, 
RXPRQ?,TRY  AGAIN, 

2)  ENTER  ANNUAL  VALUE  OF  ORPHANS  BENEFIT  AND  YEAR  IT  BEGINS 

Respond  with  a  value  for  orphans 9  benefit  and 
the  year  this  benefit  is  to  begin.  For  example, 
if  the  user  wishes  the  orphans"  benefit  to  be 
changed  to  $600  a  year  in  1980,  type  in  600.  1980. 

If  the  current  level  of  benefits  are  to  be  main¬ 
tained,  type  in  the  unescalated  amount  in  1967. 
i.e.  300.  1967.  if  the  user  enters  some  value  for 
1980,  the  program  automatically  escalates  $300 
until  1979. 

3)  ENTER  ANNUAL  VALUE  OF  CHILDRENS  BENEFIT  AND  YEAR  IT  BEGINS 

Follow  the  same  procedure  as  for  question  2. 


XI  FUND. 9 


A.  INTRODUCTION 


The  purpose  of  this  program  is  to  generate  sunmary 
tables  for  the  Canada  Pension  Plan  Fund  for  the  period  1970-2025. 
The  program  takes  as  its  input,  the  output  files  of  the  five 
programs  described  in  chapters  VI-X  and  calculates  total  benefits, 
expenses  of  administration  and  an  annual  value  for  the  fund.  The 
method  used  in  making  all  calculations  in  this  program  is  identical 
to  the  method  used  by  the  federal  Department  of  Insurance. 

When  running  the  program  from  a  terminal,  the  program 
generates  certain  questions  which  the  user  must  answer.  The 
answers  supplied  by  the  user  instruct  the  program  as  to  which  plan 
is  being  tested  and  provide  useful  information  for  the  output 
tables. 


B.  VECTORS  AND  MATRICES 


AIESPY  -  is  a  56-element  vector  containing  annual  figures 
(1970*2025)  for  the  interest  earned  since  the 
preceding  year  on  outstanding  investments. 

ANNINT  -  is  a  60-element  vector  containing  annual  figures 
(1966-2025)  for  the  total  amount  of  interest 
collected  since  the  CPP  fund  began  in  1966. 

CHILD  -  is  a  56-element  vector  containing  annual  figures 

(1970-2025)  for  children's  benefits  (see  chapter  X). 

CPPCN  -  is  a  56-element  vector  containing  annual  figures 
(1970-2025)  for  contributions  to  the  fund 
(see  chapter  VII). 

DHBEN  -  is  a  56-element  vector  containing  annual  figures 
(1970-2025)  for  death  benefits  (see  chapter  VI). 

ERDSB  -  is  a  56-element  vector  containing  annual  figures 
(1970-2025)  for  earnings-related  disability 
benefits  (see  chapter  IX). 

ERWID  -  is  a  56-eleraent  vector  containing  annual  figures 
(1970-2025)  for  earnings-related  widows'  benefits 
(see  chapter  VIII). 

FRDSB  -  is  a  56-element  vector  containing  annual  figures 
(1970-2025)  for  flat  rate  disability  benefits 
(see  chapter  IX). 
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FRWID  -  is  a  56-element  vector  containing  annual  figures 
(1970-2025)  for  flat  rate  widows'  benefits 
(see  chapter  VIII). 

MATURE  -  is  a  56-element  vector  containing  annual  figures 
(1970-2025)  for  the  value  of  loans  that  are  paid 
back  in  each  year. 

ORPHAN  -  is  a  56-element  vector  containing  annual  figures 

(1970-2025)  for  orphans 9  benefits  (see  chapter  X), 

RATE  -  is  a  56-element  vector  containing  annual  figures 
(1970-2025)  for  the  interest  rate  charged  on 
investments  made  in  each  year. 

RTBEN  -  is  a  5 6- element  vector  containing  annual  figures 

(1970-2025)  for  retirement  benefits  (see  chapter  VI) . 

TOTAL  -  is  a  56- element  vector  containing  annual  figures 
(1970-2025)  for  total  benefits  and  expenses  of 
administration. 

TOTINV  -  is  a  60-element  vector  containing  annual  figures 
(1966-2025)  for  the  total  amount  available  for 
investment. 

WFDSB  -  is  a  56-element  vector  containing  annual  figures 
(1970-2025)  for  wives6  disability  benefits 
(see  chapter  IX). 

CNRATE  -  is  a  60-el eraent  vector  containing  annual  contribution 
rates  (1966-2025). 


C.  INPUT  FILES 


The  input  files  to  FUND. 9 
being  tested.  For  the  five  types  of 


are  all  dependent  on  the  plan 
plans  available,  namely 


Reasonable  stability  current  plan 

- 

RSCUR 

Moderate  inflation 

current  plan 

MI  CUR 

Reasonable  stability  proposed  plan 

- 

RSPRO 

Moderate  inflation 

proposed  plan 

MIPRO 

All  other  plans 

TXFPB 

The  input  files  are: 

RSCUR 

MI  CUR 

RSPRO 

MIPRO 

TXFPB 

Contributions 

RSCCN 

MICCN 

RSPCN 

MIPCN 

TFPCN 

Retirement  benefits 

RTRSC 

RTMXC 

RTRSP 

RIMIP 

RTTFP 

Death  benefits 

DBRSC 

DBMIC 

DBRSP 

DBMIP 

DBTFP 

Widows'  benefits 

RSCWB 

micwb 

RSFWD 

MIPWD 

TFPWD 

Disability  benefits 

BSRSC 

DSMIC 

DSRSP 

DSMIP 

DSTFP 

Wives'  benefits 

RSCWF 

MIOfF 

RSPWF 

MIFWF 

TFPWF 

Children's  &  orphans'  benefits 

RSCCH 

MICCH 

RSPCH 

MIPCH 

TFPCH 

Interest  rate  on  investments 

RSINT 

MIINT 

RSINT 

MIINT 

TFINT 

where  all  files  have  the  extension  ".DAT". 
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The  first  four  elements  of  the  vectors  ANNINT  and 
TOT IN V  are  initialized  with  actual  values  for  the  years  1966-1969. 
See  section  B  for  the  description  of  these  variables,, 

The  user  is  reminded  that  before  he  can  run  the  FUND. 9 
program,  he  must  run  the  eight  programs  of  chapters  III  -  X,  all 
for  the  same  plan. 

The  last  data  source  that  must  be  read  in  is  file  QPSHN. 
This  data  contains  the  annual  total  contribution  rate  for  each  year 
1966-2025. 

D.  METHODOLOGY 


The  first  table  generated  by  FUND. 9  is  a  summary  table 
of  total  benefits  and  expenses  of  administration  for  each  year 
(1970-2025).  Annual  figures  for  each  type  of  benefit  are  read  in 
from  input  files.  Expenses  of  administration,  according  to  the 
Actuarial  Report  (1969),  are  defined  to  be  one- tenth  of  one  per 
cent  of  contributory  earnings  for  each  year.  Contributory  earnings 
are  calculated  by  dividing  total  contributions  by  the  contribution 
rate. 


The  second  table  generated  by  FUND. 9  contains  three 
figures  for  each  year  (1970-2025),  namely,  total  contributions, 
total  benefits  and  expenses  of  administration,  and  the  value  of 
the  fund.  The  most  important  calculation  in  this  section  is  the 
computation  of  the  value  of  the  fund. 

The  value  of  the  fund  in  any  given  year  is  calculated 
as  follows.  First,  the  value  of  interest  earned  since  the  preceding 
year  on  outstanding  investments  is  calculated.  Next,  the  total 
amount  available  for  investment  in  that  year  is  computed.  It  is 
equal  to  the  sum  of: 


1)  total  contributions 

2)  maturing  loans 
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3)  interest  earned  in  the  preceding  year 
on  outstanding  investments 

4)  less  total  benefits  and  expenses  of 
administration. 

The  program  assumes  that  loans  mature  after  twenty  years. 


If  the  total  amount  available  for  Investment  is  negative, 
it  may  be  necessary  to  recall  certain  loans  (see  section  E)  in 
order  to  prevent  the  fund  from  going  bankrupt. 


The  remaining  steps  in  the  calculation  of  the  value 
of  the  fund  require  the  definition  of  the  following  program 
variables: 


T0T6  -  is  the  cumulative  total  value  of  loans  that  have 

been  paid  back.  This  variable  has  a  different  value 
for  every  year  after  the  first  loan  has  been  repaid. 

T0T7  -  is  the  cumulative  total  value  of  investments  that 

have  been  made.  This  variable  has  a  different  value 
for  every  year  (1970-2025)® 

C0L12  -  is  the  total  value  of  outstanding  investments 

(i.e.  T0T7  -  T0T6) .  This  variable  has  a  different 
value  for  every  year. 

C0L13  -  Is  equal  to  COL 12  plus  interest  earned  in  the  first 
quarter  of  the  next  year  on  outstanding  investments® 

This  variable  has  a  different  value  for  every  year 
and  allows  for  the  three-month  time  lag  on  investment 
interest. 

C0L14  -  is  the  difference  between  contributions  and  total 

expenses  (i.e.  benefits  and  expenses  of  administration) 
in  1969  multiplied  by  a  factor  equivalent  to  the 
interest  rate  for  1969  raised  to  the  power  (YEAR  -  1969) 
where  YEA.R  ranges  from  1970  to  2025.  This  variable 
has  a  different  value  for  every  year. 

C0L15  -  is  one-eighth  of  the  following  quantity:  C0L14  less 

the  difference  between  contributions  and  total  expenses 
in  the  current  year.  This  variable  has  a  different 
value  for  every  year. 

FUND  -  is  the  sum  of  C0L13  and  C0L15.  This  variable  has  a 
different  value  for  every  year. 


The  third  table  generated  by  FUND. 9  is  a  summary  table 
designed  to  show  the  behaviour  of  the  fund  in  more  detail.  The 
figures  appearing  in  this  table  were  calculated  in  the  earlier 
steps  of  the  program.  "Total  Revenue"  is  simply  the  sum  of 
"Contributions",  ’’Interest",  and  "Loan  Repayments". 


"Net  Revenue" 
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is  equal  to  "Total  Revenue"  less  "Benefits  and  Expenses".  Note 
that  'ttet  Revenue"  is  the  same  as  the  total  amount  available  for 
investment. 

E.  POLICY  VARIABLE  INPUT 

Most  of  the  information  which  the  user  must  provide 
via  the  teletype  when  executing  FUND. 9  is,  in  fact,  for  inform- 
ation  purposes  only.  It  is  used  to  print  a  summary  page  describing 
in  detail  the  plan  being  tested. 

It  is  possible  that  under  certain  plans  the  Canada  Pension 
Plan  will  become  exhausted  at  some  future  point  in  time.  In  order 
to  help  prevent  this,  the  Canada  Pension  Plan  empowers  the  Minister 
of  Finance  to  recall  loans.  In  FUND. 9,  the  user  has  the  option  of 

i)  calling  back  the  most  recently  made  loans,  or 

ii)  calling  back  no  loans  at  all,  or 

iii)  calling  back  the  loans  with  the  shortest 
time  to  maturity. 

The  method  used  by  the  Department  of  Insurance  was  the  first  of 
the  above.  Once  the  loan  has  been  recalled,  interest  is  no  longer 
payable.  The  program  assumes  that  the  full  loan  made  in  any  year 
will  be  recalled  and  will  not  redeem  only  a  partial  issue.  Thus 
any  excess  recalled  and  not  needed  to  cover  expenses  will  be  loaned 
out  again  as  a  new  investment. 

Should  the  user  indicate  that  he  is  executing  the  program 
for  Ontario  only,  the  fund  data  for  1966-1969  is  taken  as  55  per 
cent  of  the  total  for  those  years.  Similar  ratios  could  be  used 
for  the  other  provinces. 
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F.  OUTPUT  FILES 


Each  run  of  this  program  produces  one  output  file.  The 

name  of  the  output  file  depends  on  the  plan  being  tested. 

RS  CUR.  -  RSCFD 

MI  CUR  -  MICFD 

RSPRO  -  RSPFD 

MIPRO  -  MIPFD 

TXFPB  -  TFPFD 


In  addition,  when  the  run  is  complete,  a  message  will 
be  printed  on  the  terminal  giving  the"END  OF  RUN"  statement,  the 
CPU  time  required  for  the  run,  and  the  name  of  the  output  file. 


G.  TELETYPE  QUESTIONS 

1)  TYPE  IN  PLAN  TO  BE  TESTED 

The  user  types  in  one  of  the  appropriate  5-digit  codes. 
Should  the  user  type  in  some  other  combination,  an 
error  message  will  come  up  and  the  user  can  retype 
the  correct  version. 

la)  IS  TXFPB  PLAN  MODERATE  INFLATION?  (Y  OR  N) 

(DEFAULT  IS  REASONABLE  STABILITY)  — 

This  question  will  only  be  typed  for  the  TXFPB  options 

and  the  user's  response  will  generate  the  proper  set  of 

economic  assumptions  for  the  interest  rate  of  the 

fund. 

2)  TYPE  IN  POPULATION  SEGMENT  USING  THESE  CODES: 

1  -  NFLD;  2  -  PEI;  3  -  NS;  4  -  NB;  5  -  QUE;  6  -  ONT; 

7  -  MAN;  8  -  SASK;  9  -  ALTA;  10  -  BC;  11  -  CANADA; 

12  -  CANADA  LESS  QUE  (DEFAULT  IS  12)  — 

Self-explanatory. 

3)  IF  EXPENSES  EXCEED  REVENUE,  WHICH  LOANS  WILL  BE  RECALLED? 
(TYPE  -1  FOR  MOST  RECENT;  0  FOR  NONE;  1  FOR  EARLIEST): 

The  user  can  specify  here  the  recall  provisions  to 

be  used# 

4)  TYPE  IN  YEAR'S  BASIC  EXEMPTION  - 

The  user  can  specify  the  YBE  to  be  used.  The  standard 
response  is  600. 
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5)  RETIREMENT  BENEFITS 

TYPE  IN  RETIREMENT  BENEFIT  RATIO  AND  PERCENTAGE  OF 
LOWEST  AER'S  TO  DROP  OUT  - 

The  user  will  specify  which  retirement  ratio  and 

drop  out  ratio  were  used  in  the  PENSIM  run  and 

this  information  will  appear  on  the  summary  page 

of  the  output  file. 

6)  IS  THERE  AN  EARNINGS  TEST  (Y  OR  N)  - 

The  user  responds  with  the  appropriate  letter 
depending  on  which  assumptions  were  used. 

7)  DISABILITY  BENEFITS 

TYPE  IN  ANNUAL  FLAT  RATE  (IN  DOLLARS)  AND  YEAR  IT  BEGINS  - 
The  user  types  in  the  value  that  was  used  in  DISBN.7 
and  the  year  in  which  the  changes  were  made. 

8)  TYPE  IN  PERCENTAGE  OF  BENEFIT  THAT  IS  EARNINGS  RELATED 
AND  YEAR  IT  BEGINS  - 

The  user  types  in  the  value  that  was  used  in  DISBN.7 
and  the  year  in  which  the  changes  were  made. 

9)  CHILDREN'S  BENEFITS 

TYPE  IN  ANNUAL  FLAT  RATE  (IN  DOLLARS)  AND  YEAR  IT  BEGINS  - 
The  user  types  in  the  value  that  was  used  in  CHILD. 8 
and  the  year  any  change  was  made.  If  no  changes  were 
made,  the  initial  amount  is  300  in  1967. 

10)  WIVES'  BENEFITS 

TYPE  IN  ANNUAL  FIAT  RATE  (IN  DOLLARS)  AND  YEAR  IT  BEGINS  - 
The  user  will  type  in  the  amount  to  be  paid  to  the 
wife  of  a  disabled  pensioner  if  any,  and  the  year 
in  which  such  payments  will  begin. 

U)  WIDOWS'  BENEFITS 

TYPE  IN  ANNUAL  FLAT  RATE  (IN  DOLLARS)  AND  YEAR  IT  BEGINS  - 

The  user  types  in  the  values  used  in  WIDOW. 6  and 

the  year  in  which  any  changes  take  place. 

12)  TYPE  IN  PERCENTAGE  OF  BENEFIT  THAT  IS  EARNINGS  RELATED  AND 
YEAR  IT  BEGINS  --- 

The  user  types  in  the  values  used  in  WIDOW. 6  and 
the  year  in  which  any  changes  take  place. 


72  - 


13)  ORPHANS'  BENEFITS 

TYPE  IN  ANNUAL  FIAT  RATE  (IN  DOLLARS)  AND  YEAR  IT  BEGINS 

The  user  types  in  the  value  that  was  used  in  CHILD. 8 
and  the  year  any  change  was  made.  If  no  changes  were 
made,  the  initial  amount  is  300  in  1967. 


XII  CPPBN.10 


A.  INTRODUCTION 

CPPBN.10  is  the  tenth  and  final  program  in  the  PEN3IM 
model.  This  program  projects  maximum  monthly  benefits  under  the 
Canada  Pension  Plan  for  each  type  of  pension.  In  addition,  maximum 
monthly  OAS  and  GIS  payments  are  projected  for  single  pensioners 
so  that  comparisons  can  easily  be  made. 

The  projections  are  made  for  each  year  from  1973  to 
2025  and  the  amounts  will  vary  given  the  alternatives  under  con¬ 
sideration.  Thus,  for  any  set  of  policy  variables  being  tested 
actuarially,  PENSIM  can  also  generate  the  levels  of  benefits 
actually  payable  to  recipients  on  an  individual  basis.  Thus, 
the  macroscopic  view  of  the  CPP  fund  can  be  shown  together  with 
the  microscopic  benefit  levels. 


B,  VECTORS  AND  MATRICES 


YMPE  -  this  vector  contains  the  YMPE  values  for  1966-2025 
and  they  are  read  in  from  the  disk  depending  on 
which  plan  is  being  tested. 

RETBN  -  this  vector  contains  the  maximum  retirement  benefits 
available  in  each  year  and  is  calculated  in  the 
program. 

WIDOW  -  this  vector  contains  the  maximum  widow's  benefit 
available  in  each  year  and  is  calculated  in  the 
program  by  summing  WIDFLT  and  WIDERN. 

WIDFLT  -  this  vector  contains  the  widow's  flat  rate  benefit 
for  each  year  1973-2025. 

WIDERN  -  this  vector  contains  the  widow's  earnings-related 

benefit  in  each  year  and  is  calculated  as  a  percent¬ 
age  of  the  imputed  retirement  pension. 

LMPSM  -  this  vector  contains  the  lump  sum  death  benefit  in 
any  year  and  is  set  at  10  per  cent  of  the  YMPE  for 
each  year. 

DISABL  -  this  vector  contains  the  maximum  disability  benefit 
for  each  year  and  is  the  sum  of  DISFLT  and  DISERN. 


DISFLT  -  contains  the  flat  rate  benefit  for  disability  for 
each  year  1973-2025. 

DISERN  -  contains  the  disability  earnings-related  benefit  in 
each  year  and  is  calculated  as  a  percentage  of  the 
imputed  retirement  pension. 
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DISWIF  -  this  vector  contains  the  monthly  benefit  payable 
to  a  wife  of  a  disabled  pensioner  for  each 
year  1973-2025. 

CHLDBN  -  contains  the  monthly  benefit  paid  to  orphans  and 
children  of  the  disabled. 


QAS  -  this  vector  contains  the  maximum  monthly  OAS  payment 
to  anyone  aged  65+  for  every  year  1973-2025. 

GIS  -  this  vector  contains  the  maximum  monthly  GIS  payment 
to  a  single  pensioner  for  every  year  1973-2025. 

CPI  -  this  vector  contains  the  two  sets  of  CPI  growth 

assumptions  for  calculating  the  QAS  and  GIS  benefits. 


MATUR  -  this  vector  contains  the  factors  used  to  show  the 
maturing  aspects  of  the  plan  and  is  found  in  a 
data  statement. 


C.  INPUT  FILES  AND  DATA  STATEMENTS 

The  YMPE  values  are  read  in  from  the  appropriate  data  file 
depending  on  the  plan  being  tested.  The  vector  MATUR  is  input  through  a 
data  statement  to  allow  for  the  maturing  aspects  of  the  Canada  Pension  Plan. 

Similarly,  the  vector  CPI  is  read  in  from  a  data  statement 
and  this  contains  the  annual  increases  in  the  consumer  price  index 
for  each  year  to  2025,  first  for  the  moderate  inflation  assumptions 
and  then  for  the  reasonable  stability  assumptions. 


D.  METHODOLOGY 


When  execution  of  the  program  begins,  the  user  is  asked 
several  questions  (see  section  G)  that  specify  the  plan,  the  pension 
rates  and  monthly  amounts.  Once  this  information  is  provided,  the 
program  projects  the  benefit  levels  by  type  for  each  year  to  2025. 

The  first  calculation  is  that  of  the  retirement  pension. 
This  calculation  multiplies  the  retirement  pension  rate  by  the 
average  earnings  ratio  and  then  by  the  three- year  moving  average 
of  YMPE ’ s  up  to  the  year  of  retirement.  This  formula  accounts  for 
the  maturing  aspects  of  the  Plan  and  calculates  the  monthly  benefit. 
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Once  the  retirement  pension  has  been  calculated,  the 
program  uses  the  widow's  ratio  to  calculate  the  widow's  earnings- 
related  portion  and  similarly  for  the  disability  earnings-related 
portion,.  The  lump  sum  death  benefit  is  calculated  at  this  point  as 
10  per  cent  of  the  year's  YMPE. 

The  next  step  is  the  calculation  of  the  flat  rate 
benefits.  This  process  begins  with  the  1973  monthly  flat  rate 
benefits  as  specified  by  the  user  and  escalates  the  amount  annually 
by  a  pension  index  which  is  also  input  by  the  user. 

The  flat  rate  benefits  calculated  are  the  widow's  and 
disability  flat  rates,  the  benefits  to  orphans  and  children  of  the 
disabled,  and  the  payment  to  the  wife  of  a  disabled  pensioner,  if 
this  is  applicable. 

Once  these  calculations  have  been  done,  the  earnings- 
related  and  flat  rate  portions  of  supplementary  benefits  are  added 
to  get  the  total  maximum  widow's  and  disability  pension. 

The  final  calculation  is  the  QAS-GIS  pension  which 
begins  with  the  1972  maximum  monthly  amounts  for  single  pensioners, 
and  escalates  these  benefits  annually  by  the  increase  in  the 
consumer  price  index  given  the  economic  assumptions  being  tested. 

The  program  then  writes  out  the  annual  benefit  levels 
by  type  on  disk  file  BENFT. 


E.  POLICY  VARIABLE  INPUT 


The  user  must  specify  at  the  start  of  execution  the 
plan  he  is  using,  the  average  earnings  rates  to  be  used  and  the 
ceiling  on  the  pension  index  which  is  to  be  applied  to  the  flat 


rate  benefits 
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Similarly,  the  user  must  input  to  the  program  the 
widow  and  disability  earnings- related  ratios  and  the  monthly  flat 
rate  amounts  to  be  used  in  1973.  It  is  at  this  point  that  the 
user  can  specify  the  benefit,  if  any,  to  the  wife  of  a  disabled 
pensioner. 

F.  OUTPUT  FILES 


The  output  from  program  CPPBN.1Q  is  in  file  BENFT. 

This  data  requires  a  full  132  width  printer  because  of  the  number 
of  benefits  that  are  being  calculated. 

G.  TELETYPE  QUESTIONS 

1)  TYPE  IN  PLAN  TO  BE  TESTED: 

The  user  will  respond  with  one  of  the  five 
possibilities  listed  in  chapter  V. 

This  response  automatically  inputs  the  proper  data  source 
of  YMPE  values  for  calculating  the  retirement  benefit  and  it  selects 
the  proper  set  of  economic  assumptions. 

2)  TYPE  IN  PENSIONER'S  LIFETIME  AVERAGE  EARNINGS  RATIO  (0  -  1): 

Respond  with  a  decimal  value  in  the  proper  range. 

3)  TYPE  IN  CEILING  ON  PENSION  INDEX  in  1973  ET  SEQ: 

Respond  with  a  value  such  as  1.02.  This  is  the 
statutory  limit  of  the  current  plan. 

4)  TYPE  IN  RETIREMENT  RATE  (0  -  1): 

Respond  with  a  decimal  value  in  the  proper  range. 

The  statutory  value  is  ,25. 

5)  TYPE  IN  WIDOW'S  MONTHLY  FLAT  RATE  IN  1973: 

Respond  with  a  monthly  dollar  value.  For  example, 
the  current  plan  amount  is  28.15  and  the  proposed 


value  is  80. 
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6)  TYPE  IN  WIDOW'S  EARNINGS -RELATED  RATIO  (0  -  1): 

Respond  with  a  decimal  value  in  the  proper  range. 
Currently  the  rate  is  .375  and  the  proposed  rate 
is  .75. 

7)  TYPE  IN  ORPHAN'S  MONTHLY  FLAT  RATE  IN  1973: 

Respond  with  a  dollar  value.  The  amount  is 
currently  28.15. 

8)  TYPE  IN  DISABILITY  MONTHLY  FLAT  RATE  IN  1973: 

Respond  with  a  monthly  dollar  value.  For  example, 
the  current  plan  is  28.15  and  the  proposed  amount 
is  80. 

9)  TYPE  IN  DISABILITY  EARNINGS -RELATED  RATIO  IN  1973  (0  -  1) 

Respond  with  a  decimal  value  in  the  proper  range. 
Currently,  the  rate  is  .75  and  the  proposed  rate 
is  1.0. 

10)  SPECIFY  MONTHLY  BENEFIT  FOR  WIFE  OF  DISABLED  IN  1973: 

Respond  with  0  under  current  plan  and  80  under 
proposed  plan. 


XIII  DATA  SOURCES 


The  tables  in  this  chapter  were  used  in  the  PENSIM 
model  and  encompass  most  of  the  actuarial  assumptions  incorporated 
in  the  programs. 

In  all  cases,  the  source  of  the  data  was  with  the 
federal  Department  of  Insurance.  This  allowed  compatability  of 
methodology  and  assured  a  common  basis  for  comparisons.  While 
some  of  the  data  used  was  published  in  the  Actuarial  Report ,  a 
significant  amount  of  information  was  taken  directly  from  Depart¬ 
ment  of  Insurance  worksheets. 

Where  necessary,  original  data  was  used  as  the  basis 
for  interpolation  and  is  so  identified  on  the  appropriate  table. 
Each  table  is  identified  as  to  the  nature  of  the  data  it  contains, 
the  vector/array  or  input  file  name  and  the  program  (s )  in  which 
the  data  is  used. 
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I 

POPULATION  -  CANADA 

All 

LESS  QUEBEC,  MALES  - 

Figures  in  Thousands 

PRJM  1,  PRJM  ■ 

-  P0P.1 

AGE /YEAR 

1966 

1970 

1975 

1980 

0  - 

4 

803.1 

658.3 

644.4 

753.9 

5  - 

9 

825.3 

836.5 

672.5 

660.0 

10  - 

14 

749.5 

833.4 

857.6 

696.0 

15  - 

19 

644.9 

734.9 

852.7 

879.3 

20  - 

24 

492.9 

632.0 

749.3 

868.7 

25  - 

29 

430.6 

487.8 

646.4 

765.0 

30  - 

34 

444.1 

447.6 

505.4 

665.0 

35  - 

39 

463.1 

458.5 

466.1 

525.2 

40  - 

44 

449.1 

473.9 

468.2 

477.3 

45  - 

49 

395.4 

437.9 

471.2 

466.5 

50  - 

54 

365.5 

378.0 

428.3 

461.7 

55  - 

59 

303.9 

339.4 

362.0 

410.7 

60  - 

64 

245.6 

274.3 

315.9 

338.5 

65  - 

69 

192.2 

213.7 

243.7 

281.9 

70  - 

74 

152.7 

153.4 

173.9 

199.5 

75  - 

79 

110.2 

110.9 

111.8 

127.9 

80  - 

84 

65.3 

68.6 

68.8 

69.7 

85  - 

89 

27.0 

30.7 

32.5 

32.6 

90  and  over 

8.3 

9.7 

11.1 

11.8 

The  data  files 

PRJM1  and 

PRJF1  are  the  1966  columns  in  the 

male  and 

female  population  data  respectively.  PRJM  and  PRJF  contain  the  re¬ 
maining  population  statistics. 


continued  . . . 
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I  POPULATION 

-  CANADA  LESS  QUEBEC,  MALES  - 

All  Figures  in  Thousands 

PRJM1, 

PRJM  -  POP.l 

AGE /YEAR 

1985 

1990 

1995 

2000 

0-4 

843.2 

875.7 

870.0 

875.7 

5-9 

771.5 

861.8 

895.8 

891.9 

10  -  14 

686.1 

799.5 

891.9 

928.3 

15  -  19 

720.1 

712.3 

827.5 

922.1 

20  -  24 

896.7 

740.2 

734.4 

850.9 

25  -  29 

885.3 

915.7 

762.0 

758.3 

30  -  34 

784.6 

906.9 

939.3 

788.7 

35  -  39 

686.3 

806.5 

930. C 

964.5 

40  -  44 

536.7 

698.2 

818.2 

942.1 

45  -  49 

476.5 

535.2 

695.5 

814.1 

50  -  54 

457.8 

468.4 

525.6 

682.6 

55  -  59 

443.5 

441.0 

451.7 

507.2 

60  -  64 

384.7 

416.2 

415.3 

425.9 

65  -  69 

302.9 

344.8 

373.5 

373.3 

70  -  74 

232.3 

251.0 

286.6 

311.2 

75  -  79 

148.1 

173.3 

188.0 

215.3 

80  -  84 

80.1 

92.9 

109.1 

118.4 

85  -  89 

33.0 

38.0 

44.1 

51.8 

90  and  over 

11.9 

12.1 

13.6 

15.9 

continued  . . . 
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I  POPULATION  -  CANADA  LESS  QUEBEC,  MALES  -  PRJM1,  PRJM  -  POP.  1 

All  Figures  in  Thousands 


AGE/YEAR 

2005 

2010 

2015 

2020 

2025 

0-4 

917.4 

975.8 

1,027.1 

1,064.6 

1,098.4 

5-9 

898.9 

941.8 

1,001.3 

1,054.0 

1,093.0 

10  -  14 

926.2 

935.0 

979.8 

1,041.1 

1,095.9 

15  -  19 

960.1 

959.6 

970.3 

1,016.9 

1,080.1 

20  -  24 

946.3 

985.6 

986.8 

999.0 

1,047.2 

25  -  29 

875.5 

971.9 

1,012.6 

1,015.4 

1,029.3 

30  -  34 

786.7 

904.8 

1,002.4 

1,044.6 

1,049.4 

35  -  39 

816.8 

816.6 

935.6 

1,034,3 

1,078.3 

40  -  44 

977,3 

832.4 

833.4 

952.5 

1,051.5 

45  -  49 

936.3 

971.4 

829.4 

831.0 

948.6 

50  -  54 

798.3 

917.5 

952.0 

814.2 

816.1 

55  -  59 

658.0 

768.8 

883.0 

916.3 

785.0 

60  -  64 

478.3 

618.5 

721.8 

828.2 

859.5 

65  -  69 

383.5 

430.3 

555.4 

647.4 

742.4 

70  -  74 

311.3 

319.9 

358.9 

463.2 

539.9 

75  -  79 

234.0 

234.1 

240.5 

269.9 

348.4 

80  -  84 

135.9 

147.7 

147.7 

151.7 

170.3 

85  -  89 

56.2 

64.5 

70.2 

70.1 

72.0 

90  and  over 

18.5 

20.3 

23.1 

25.3 

25.6 

continued  . . . 
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I 

POPULATION 

-  CANADA  LESS  QUEBEC,  FEMALES 

All  Figures  in  Thousands 

-  PRJF1,  PRJF 

-  POP. 

AGE /YEAR 

1966 

1970 

1975 

1980 

0  - 

4 

761.8 

626.3 

613.5 

717.8 

5  - 

9 

792.7 

793.6 

639.3 

628.3 

10  - 

14 

715.8 

799.7 

813.6 

661.3 

15  - 

19 

626.5 

702.8 

820.9 

836.3 

20  - 

24 

494.3 

625.2 

723.3 

842.8 

25  - 

29 

430.5 

491.7 

645 . 9 

745.6 

30  - 

34 

425.4 

446.9 

512.3 

668.2 

35  - 

39 

446.8 

439.0 

465.8 

532.5 

40  - 

44 

453.3 

464.0 

450.0 

478.2 

45  - 

49 

396.3 

443.9 

464.8 

451.9 

50  - 

54 

355.2 

384.2 

441.1 

462.6 

55  - 

59 

292.0 

336.0 

379.4 

435.4 

60  - 

64 

242.7 

275.3 

325.9 

368.4 

65  - 

69 

205.7 

221.8 

258.2 

306.2 

70  - 

74 

174.8 

181.5 

197.3 

230.6 

75  - 

79 

126.0 

137.7 

148.7 

160.6 

80  - 

84 

77.3 

86.7 

96.8 

105.0 

85  - 

89 

35.4 

40.7 

47.2 

53.2 

90  and  over 

13.2 

15.0 

17.4 

20.3 

continued  . . . 
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I  POPULATION 

-  CANADA  LESS  OUEBEC, 

FEMALES-PRJF1 ,  PRJF 

-  POP.l 

All  Figures  in 

Thousands 

AGE/YEAR 

1985 

1990 

1995 

2000 

0-4 

802.3 

833.0 

825.0 

832.4 

5-9 

733.6 

819.2 

851.2 

845.0 

10  -  14 

652.8 

759.9 

847.5 

881.8 

15  -  19 

686.9 

680.6 

789.7 

879.5 

20  -  24 

860.8 

713.9 

709.7 

821.0 

25  -  29 

867.5 

887.4 

743.0 

741.0 

30  -  34 

769.6 

893.1 

915.1 

773.6 

35  -  39 

689.9 

792.7 

917.7 

941.9 

40  -  44 

545.7 

703.1 

806.5 

932.2 

45  -  49 

480.1 

548.2 

704.3 

807.4 

50  -  54 

450.2 

478.8 

546.3 

701.2 

55  -  59 

457.1 

445.9 

474.2 

541.1 

60  -  64 

423.3 

444.7 

434.9 

463.0 

65  -  69 

347.1 

399.3 

419.8 

411.1 

70  -  74 

273.7 

310.7 

358.1 

376.8 

75  -  79 

189.1 

225.1 

255.9 

295.1 

80  -  84 

113.7 

134.3 

160.2 

182.2 

85  -  89 

58.1 

63.2 

74.9 

89.4 

90  and  over 

23.2 

25.7 

28.2 

32.8 

continued 
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I  POPULATION  -  CANADA  LESS  QUEBEC,  FEMALES  -  PRJF1,  PRJF  -  POP.l 

All  Figures  in  Thousands 


AGE /YEAR 

2005 

2010 

2015 

2020 

2025 

0-4 

872.1 

927.5 

976.5 

1,012.0 

1,044.2 

5-9 

853.4 

894.2 

950.7 

1,000.9 

1,037.8 

10  -  14 

877.2 

887.3 

929.7 

988.1 

1,040.1 

15  -  19 

915.4 

912.6 

924.6 

968.8 

1,029.2 

20  -  24 

912.3 

949.9 

949.0 

962.9 

1,009.0 

25  -  29 

853.9 

946.8 

986.2 

987.2 

1,003.1 

30  -  34 

773.2 

887.5 

982.1 

1,023.3 

1,026.4 

35  -  39 

802.6 

803.9 

919.4 

1,015.4 

1,058.3 

40  -  44 

957.2 

819.9 

822.5 

938.3 

1,034.9 

45  -  49 

932.3 

957.5 

822.1 

825.2 

940.4 

50  -  54 

803.1 

926.5 

951.8 

818.8 

822.3 

55  -  59 

692.9 

792.7 

913.7 

938.9 

809.3 

60  -  64 

527.8 

674.4 

770.9 

887.8 

912.6 

65  -  69 

437.8 

498.7 

636.7 

727.4 

837.3 

70  -  74 

368.8 

392.7 

447.3 

571.1 

652.4 

75  -  79 

310.8 

304.3 

324.0 

369.1 

471.2 

80  -  84 

210.1 

221.3 

216.7 

230.8 

262.8 

85  -  89 

101.9 

117.4 

123.7 

121.1 

128.9 

90  and  over 

39.2 

45.1 

51.8 

55.5 

55.2 

-  85 


II  ADJUSTMENT  FACTORS  -  ADJFC  -  MMAE.3 


AGE  GROUP 

MALES 

FEMALES 

18  -  19 

1.13591 

1.04537 

20  -  24 

.97518 

1.00941 

25  -  29 

.99412 

1.04689 

30  -  34 

1.00023 

1.03419 

35  -  39 

1.00247 

1.01398 

40  -  44 

1.00067 

1.00034 

45  -  49 

.99527 

.99267 

50  -  54 

.98426 

.98501 

55  -  59 

.96821 

.97721 

60  -  64 

.95424 

.97255 

65  -  69 

.93388 

.98098 

:  GROUP 

III  DISABILITY  DROP- 

IN  1965 

-OUT  FACTORS  -  DSDRP  -  RETBN.4 

DEATH  OR  RETIREMENT  AT  AGE: 

25 

30 

35* 

40 

-50  to 

-46 

1.002 

1.003 

1.004 

1.005 

-45  to 

-41 

1.002 

1.003 

1.004 

1.005 

-40  to 

-36 

1.002 

1.003 

1.004 

1.005 

-35  to 

-31 

1.002 

1.003 

1.004 

1.005 

-30  to 

-26 

1.002 

1.003 

1.004 

1.005 

-25  to 

-21 

1.002 

1.003 

1.004 

1.005 

-20  to 

-16 

1.002 

1.003 

1.004 

1.005 

-15  to 

-11 

1.002 

1.003 

1.004 

1.005 

-10  to 

-6 

1.002 

1.003 

1.004 

1.005 

-  5  to 

-1 

1.002 

1.003 

1.004 

1.005 

0  to 

4 

1.002 

1.003 

1.004 

1.005 

5  to 

9 

1.002 

1.003 

1.004 

1.005 

10  to 

14 

1.002 

1.003 

1.004 

1.005 

15  to 

19 

1.002 

1.003 

1.004 

1.005 

20  to 

24 

1.000 

1.002 

1.003 

1.004 

25  to 

29 

1.000 

1.000 

1.003 

1.004 

30  to 

34 

1.000 

1.000 

1.000 

1.003 

35  to 

39 

1.000 

1.000 

1.000 

1.000 

40  to 

44 

1.000 

1.000 

1.000 

1.000 

45  to 

49 

1.000 

1.000 

1.000 

1.000 

50  to 

54 

1.000 

1.000 

1.000 

1.000 

55  to 

59 

1.000 

1.000 

1.000 

1.000 

60  to 

64 

1.000 

1.000 

1.000 

1.000 

65  to 

69 

1.000 

1.000 

1.000 

1.000 

*  Interpolated  from  adjoining  columns 
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III  DISABILITY  DROP-OUT  FACTORS  -  DSDRP  -  RETBN.4 


AGE  GROUP 

IN  1965 

DEATH  OR 

RETIREMENT 

AT  AGE: 

45* 

50 

55* 

6.0 

65 

-50 

to 

-46 

1.006 

1.007 

1.0085 

1.010 

1.015 

-45 

to 

-41 

1.006 

1.007 

1.0085 

1.010 

1.015 

-40 

to 

-36 

1.006 

1.007 

1.0085 

1.010 

1.015 

-35 

to 

-31 

1.006 

1.007 

1.0085 

1.010 

1.015 

-30 

to 

-26 

1.006 

1.007 

1.0085 

1.010 

1.015 

-25 

to 

-21 

1.006 

1.007 

1.0085 

1.010 

1.015 

-20 

to 

-16 

1.006 

1.007 

1.0085 

1.010 

1.015 

-15 

to 

-11 

1.006 

1.007 

1.0085 

1.010 

1.015 

-10 

to 

-6 

1.006 

1.007 

1.0085 

1.010 

1.015 

-5 

to 

-1 

1.006 

1.007 

1.0085 

1.010 

1.015 

0 

to 

4 

1.006 

1.007 

1.0085 

1.010 

1.015 

5 

to 

9 

1.006 

1.007 

1.0085 

1.010 

1.015 

10 

to 

14 

1.006 

1.007 

1.0085 

1.010 

1.015 

15 

to 

19 

1.006 

1.007 

1.0085 

1.010 

1.015 

20 

to 

24 

1.0055 

1.007 

1.0085 

1.010 

1.015 

25 

to 

29 

1.0055 

1.007 

1.0085 

1.010 

1.015 

30 

to 

34 

1.0045 

1.006 

1.0085 

1.011 

1.015 

35 

to 

39 

1.003 

1.006 

1.0085 

1.011 

1.016 

40 

to 

44 

1.000 

1.004 

1.0075 

1.011 

1.017 

45 

to 

49 

1.000 

1.000 

1.0050 

1.010 

1.017 

50 

to 

54 

1.000 

1.000 

1.0000 

1.007 

1.012 

55 

to 

59 

1.000 

1.000 

1.0000 

1.000 

1.012 

60 

to 

64 

1.000 

1.000 

1.0000 

1.000 

1.012 

65 

to 

69 

1.000 

1.000 

1.0000 

1.000 

1.000 

*  Interpolated  from  adjoining  columns 


IV  SHORT  RANGE  RETIREMENT  BENEFIT  FACTORS  -  RFAC  -  RETBN.4 


YEAR 

DEATH 

AT  AGE  60 

DEATH 

AT  AGE  65 

Males 

Females 

Males 

Females 

1970 

61 

21 

167 

31 

1971 

71 

12 

148 

55 

1972 

86 

30 

232 

45 

1973 

114 

20 

189 

73 

1974 

115 

42 

309 

61 

87 


V  DEATH  BENEFIT  COST  REDUCTION  FACTORS  -  RSDRD  -  RET BN. 4 
(REASONABLE  STABILITY) 


YEAR* 

1970 

1975 

1980 

1990 

2000 

2001+ 

*  Values  for  intermediate  years 


.098 

.082 

.070 

.055 

.048 

.045 

are  interpolated  linearly 


VI  DEATH  BENEFIT  COST  REDUCTION  FACTORS  -  MIDRD  -  RET BN. 4 
(MODERATE  INFLATION) 


YEAR* 

1970 

1975 

1980 

1990 

2000 

2001+ 

*  Values  for  intermediate  years 


.098 

.082 

.073 

.059 

.052 

.052 

are  interpolated  linearly 


VII  ONE  YEAR  SURVIVAL  PROBABILITIES  -  SURVM  -  RETBN.4;  WIDOW. 6 


AGE 

GROUP 

1966  - 

1969 

1970  - 

1974 

1975  - 

1979 

M 

F 

M 

F 

M 

F 

20 

_ 

24 

.9984 

.9995 

.9984 

.9995 

.9985 

.9995 

25 

- 

29 

.9985 

.9993 

.9985 

.9993 

.9986 

.9994 

30 

- 

34 

.9984 

.9991 

.9984 

.9991 

.9985 

.9991 

35 

- 

39 

.9979 

.9987 

.9979 

.9987 

.9980 

.9987 

40 

- 

44 

.9970 

.9981 

.9970 

.9981 

.9971 

.9981 

45 

- 

49 

.9942 

.9969 

.9943 

.9970 

.9945 

.9971 

50 

- 

54 

.9906 

.9951 

.9907 

.9952 

.9912 

.9954 

55 

- 

59 

.9848 

.9928 

.9850 

.9930 

.9856 

.9932 

60 

- 

64 

.9768 

.9881 

.9770 

.9883 

.9778 

.9889 

65 

- 

69 

.9648 

.9805 

.9650 

.9809 

.9658 

.9816 

70 

- 

74 

.9475 

.9673 

.9479 

.9676 

.9490 

.9680 

75 

- 

79 

.9219 

.9437 

.9225 

.9443 

.9239 

.9455 

80 

- 

84 

.8813 

.9059 

.8815 

.9067 

.8825 

.9079 

85 

- 

89 

.8232 

.8484 

.8232 

.8490 

.8231 

.3502 

90 

+ 

.7274 

.7486 

.  7272 

.7482 

.7267 

.7477 

continued  . . . 
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VII  ONE  YEAR  SURVIVAL  PROBABILITIES  -  SURVM  -  RETBN.4;  WIDOW. 6 


AGE 

GROUP 

1980  - 

■  1984 

1985  - 

■  1989 

1990  - 

•  1994 

M 

F 

M 

F 

M 

F 

20 

_ 

24 

.9986 

.9996 

.9987 

.9996 

.9987 

.9996 

25 

- 

29 

.9986 

.9994 

.9987 

.9994 

.9987 

.9995 

30 

- 

34 

.9985 

.9992 

.9986 

.9992 

.9986 

.9992 

35 

- 

39 

.9980 

.9988 

.9981 

.9988 

,9981 

.9988 

40 

— 

44 

.9972 

.9982 

.9972 

.9982 

.9973 

.9982 

45 

— 

49 

.9948 

.9972 

.9951 

.9973 

.9953 

.9973 

50 

- 

54 

.9917 

.9956 

.9921 

.9958 

.9924 

.9959 

55 

- 

59 

.9863 

.9935 

.9870 

.9937 

.9875 

.9938 

60 

- 

64 

.9786 

.9893 

.9794 

.9896 

.9801 

.9898 

65 

- 

69 

.9669 

.9821 

.9682 

.9824 

.9693 

.9827 

70 

- 

74 

.9503 

.9686 

.9517 

.9693 

.9530 

.9698 

75 

- 

79 

.9251 

.9464 

.9261 

.9471 

.9268 

.9475 

80 

- 

84 

.8834 

=  9089 

.8841 

.9097 

.8846 

.9103 

85 

- 

89 

.8230 

.8514 

.8229 

.8525 

.8228 

.8533 

90 

+ 

.7260 

.7472 

.7253 

.7467 

.7247 

.7463 

AGE  GROUP 


1995  -  1999 


2000  -  2025 


M 

F 

M 

F 

20 

— 

24 

.9988 

.9996 

.9988 

.9996 

25 

- 

29 

.9988 

.9995 

.9988 

.9995 

30 

- 

34 

.9987 

.9992 

.9987 

.9992 

35 

- 

39 

.9982 

.9988 

.9982 

.9988 

40 

- 

44 

.9973 

.9983 

.9974 

.9983 

45 

- 

49 

.9955 

.9974 

.9956 

.9974 

50 

- 

54 

.9926 

.9960 

.9927 

.9961 

55 

- 

59 

.9878 

.9939 

.9879 

.9940 

60 

- 

64 

.9805 

.9900 

.9807 

.9901 

65 

- 

69 

.9700 

.9829 

.9703 

.9830 

70 

- 

74 

.9538 

.9702 

.9542 

.9704 

75 

- 

79 

.9273 

.9477 

.9276 

.9478 

80 

- 

84 

.8848 

.9107 

.8850 

.9109 

85 

- 

89 

.8227 

.8538 

.8227 

.8540 

90 

+ 

.7243 

.7461 

.7241 

.7460 

VIII  EARNINGS  TEST  ADJUSTMENT  FACTORS  -  ETADJ  -  CONT.5 


YEAR 

MALES  AND  FEMALES 

1973 

.933 

1974 

.867 

1975 

.800 

1976 

.680 

1977 

.560 

1978 

.440 

1979 

.320 

1980+ 

.200 

89 


IX  LABOUR  FORCE  PARTICIPATION  RATES  -  PART  -  RETBN.4,  CONT.5 


MALES 


AGE  GROUP 

1966  -  1984 

1985+ 

18-19 

.65 

.68 

20-24 

1.00 

1.00 

25-34 

1.00 

1.00 

35-49 

.93 

.94 

50-59 

.87 

.88 

60-64 

.78 

.79 

65-69 

.53 

.54 

_ FEMALES _ 

(Moderate  Inflation) 


AGE  GROUP 

1966  -  1974 

1975  -  1984 

1985  -  2004 

2005+ 

18-19 

.46 

.50 

.55 

.58 

20-24 

.66 

.69 

.73 

.75 

25-29 

.44 

.50 

.57 

.58 

30-59 

.36 

.42 

.48 

.49 

60-64 

.25 

.29 

.34 

.35 

65-69 

.13 

.13 

.14 

.14 

_ FEMALES _ 

(Reasonable  Stability) 


AGE  GROUP 

1966  -  1974 

1975  -  1984 

1985  -  2004 

2005+ 

18-19 

.46 

.49 

.53 

.55 

20-24 

.  66 

.68 

.71 

.73 

25-29 

.44 

.50 

.56 

.57 

30-59 

.36 

.41 

.47 

.48 

60-64 

.25 

.29 

.33 

.34 

65-69 

.13 

.13 

.14 

.14 

X  OVERPAYMENT  ADJUSTMENT  FACTORS  -  ADJ  -  C0NT.5 


YEAR 

MALES  AND  F 

1966-1970 

.100 

1971 

.096 

1972 

.092 

1973 

.083 

1974 

.074 

1975 

.065 

1976 

.056 

1977 

.052 

1978 

.048 

1979 

.  044 

1980-2025 

.040 

XI  PROJECTED  SURVIVAL  RATIOS  FOR  QUINQUENNIAL  AGE  GROUPS  -  SURVP  -  WIDOW. 6 


SURVIVAL  AGE 

GROUPS 

17-21* 

22-26 

27-31 

32-36 

to 

to 

to 

to 

YEAR 

22-26 

27-31 

32-36 

37-41 

1968-70 

.999 

.999 

.998 

.998 

1970-75 

.997 

.997 

.995 

.993 

1975-80 

.997 

.997 

.996 

.994 

1980-85 

.998 

.998 

.996 

.994 

1985-90 

.998 

.998 

.  996 

.994 

1990-95 

.998 

.998 

.996 

.994 

1995-2000 

.998 

.998 

.996 

.994 

SURVIVAL  AGE 

GROUPS 

15-19 

to 

20-24 

to 

25-29 

to 

30-34 

to 

YEAR 

20-24 

25-29 

30-34 

35-39 

1965-70 

.997 

.997 

.996 

.994 

1970-75 

.997 

.997 

.996 

.994 

1975-80 

.997 

.997 

.997 

.994 

1980-85 

.998 

.998 

.997 

.995 

1985-90 

.998 

.998 

.997 

.995 

1990-95 

.998 

.998 

.997 

.995 

1995-2000 

.998 

.998 

.997 

.995 

*  These  Age  Groups  differ  slightly  for  1968-70 


continued 
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XI  PROJECTED  SURVIVAL  RATIOS  FOR  QUINQUENNIAL  AGE  GROUPS  -  SURVP  -  WIDOW. 6 


SURVIVAL  AGE  GROUPS 

37-41 

to 

42-46  47-51 

to  to 

52-56 

to 

YEAR 

42-46 

47-51 

52-56 

57-61 

1968-70 

.997 

.996 

.992 

.989 

1970-75 

.990 

.986 

.979 

.968 

1975-80 

.991 

.987 

.980 

.969 

1980-85 

.991 

.987 

.980 

.969 

1985-90 

.992 

.988 

.981 

.970 

1990-95 

.992 

.988 

.981 

.971 

1995-2000 

.992 

.988 

.982 

.972 

SURVIVAL  AGE  GROUPS 

35-39 

to 

40-44  45-49 

to  to 

50-54 

to 

YEAR 

40-44 

45-49 

50-54 

55-59 

1965-70 

.992 

.989 

.981 

.973 

1970-75 

.992 

.988 

.982 

.974 

1975-80 

.993 

.989 

.983 

.975 

1980-85 

.993 

.989 

.983 

.975 

1985-90 

.993 

.990 

.984 

.976 

1990-95 

.993 

.990 

.984 

.976 

1995-2000 

.993 

.990 

.985 

.977 

controlled 
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XI  PROJECTED  SURVIVAL  RATIOS  FOR  QUINQUENNIAL  AGE  GROUPS  -  SURVP  -  WIDOW. 6 


SURVIVAL  AGE  GROUPS 

57-61 

to 

62-66  67-71 

to  to 

72-76 

to 

YEAR 

62-66 

67-71 

72-76 

77-81 

1968-70 

.982 

.971 

.952 

.920 

1970-75 

.947 

.915 

.860 

.771 

1975-80 

.949 

.917 

.863 

.774 

1980-85 

.951 

.919 

.864 

.776 

1985-90 

.952 

.920 

.  866 

.777 

1990-95 

.953 

.922 

.867 

.779 

1995-2000 

.954 

.922 

.868 

.779 

SURVIVAL  AGE 

GROUPS 

55-59 

60-64 

65-69 

70-74 

to 

to 

to 

to 

YEAR 

60-64 

65-69 

70-74 

75-79 

1965-70 

.956 

.928 

.885 

.812 

1970-75 

.958 

.931 

.890 

.816 

1975-80 

.960 

.933 

.893 

.818 

1980-85 

.961 

.936 

.894 

.820 

1985-90 

.962 

.937 

.895 

.822 

1990-95 

.963 

.938 

.897 

.823 

1995-2000 

.964 

.939 

.897 

.824 

continued 
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XI 


PROJECTED 

SURVIVAL  RATIOS  FOR 

QUINQUENNIAL  AGE 

GROUPS  -  SURVP 

-  WIDOW. 6 

SURVIVAL  AGE  GROUPS 

77-81 

82-86 

87-91 

92+ 

to 

to 

to 

to 

YEAR 

82-86 

87-91 

92-96 

97+ 

1968-70 

.866 

.782 

.668 

.503 

1970-75 

.641 

.475 

.000 

.000 

1975-80 

.645 

.478 

.000 

.000 

1980-85 

.647 

.480 

.299 

.000 

1985-90 

.648 

.482 

.299 

.132 

1990-95 

.650 

.483 

.299 

.132 

1995-2000 

.650 

.484 

.299 

.132 

SURVIVAL 

AGE  GROUPS 

75-79 

80-84 

85-89 

90+ 

to 

to 

to 

to 

YEAR 

80-84 

85-89 

90-94 

95+ 

1965-70 

.698 

.541 

.365 

.179 

1970-75 

.704 

.547 

.367 

.177 

1975-80 

.707 

.551 

.368 

.176 

1980-85 

.709 

.554 

.369 

.176 

1985-90 

.710 

.556 

.371 

.177 

1990-95 

.712 

.557 

.372 

.177 

1995-2000 

.712 

.558 

.373 

.177 

' 


-  94  - 


XII  PERCENTAGE  OF  WIDOW  BENEFICIARIES  NOT  IN  RECEIPT  OF  AGE  RETIREMENT  PENSIONS 


BASED  ON  AGE  IN  1968  -  PWNRP1  -  WIDOW. 6 


AGE  - 

GROUP 

perce: 

Less 

than  20 

55 

20  - 

24 

83 

25  - 

29 

78 

30  - 

34 

73 

35  - 

39 

67 

40  - 

44 

61 

45  - 

49 

54 

50  - 

54 

47 

55  - 

59 

40 

60  - 

64 

32 

65  - 

69 

15 

✓ 


BASED  ON  AGE  IN  1965  -  PWNRP2  -  WIDOW. 6 


AGE  GROUP 

Less  than  20 
20  -  24 
25  -  29 
30  -  34 
35  -  39 
40  -  44 
45  -  49 
50  -  54 
55  -  59 
60  -  64 
65  -  69 


PERCENTAGE 

85 

50 

75 

69 

63 

57 

50 

43 

36 

25 

11 
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XIII 

AGE  DISTRIBUTION  OF  WIVES 

-  AGED IS  -  WIDOW. 6 

HUSBAND'S 

WIFE'S 

%  DIST. 

HUSBAND' S 

WIFE ' S 

%  DIST. 

AGE  GROUP 

AGE  GROUP 

OF  WIVES 

AGE  GROUP 

AGE  GROUP 

OF  WIVES 

20  -  24 

- 

20 

22 

50  -  54 

30  - 

-  34 

2 

20  - 

24 

69 

35  - 

-  39 

5 

25  - 

29 

9 

40  - 

-  44 

17 

30  - 

34 

0 

45  - 

-  49 

38 

35  - 

39 

0 

50  - 

-  54 

32 

40  - 

44 

0 

55  - 

-  59 

6 

25  -  29 

- 

20 

3 

55  -  59 

35  - 

-  39 

3 

20  - 

24 

40 

40  - 

-  44 

6 

25  - 

29 

49 

45  - 

-  49 

18 

30  - 

34 

8 

50  - 

-  54 

37 

35  - 

39 

0 

55  - 

-  59 

30 

40  - 

44 

0 

60  - 

-  64 

6 

30  -  34 

- 

20 

0 

60  -  64 

40  - 

44 

3 

20  - 

24 

9 

45  - 

49 

7 

25  - 

29 

39 

50  - 

54 

19 

30  - 

34 

43 

55  - 

59 

35 

35  - 

39 

9 

60  - 

64 

29 

40  - 

44 

0 

65  - 

69 

7 

35  -  39 

20  - 

24 

2 

65  -  69 

45  - 

49 

5 

25  - 

29 

10 

50  - 

54 

7 

30  - 

34 

38 

55  - 

59 

19 

35  - 

39 

42 

60  - 

64 

34 

40  - 

44 

8 

65  - 

69 

28 

45  - 

49 

0 

70  - 

74 

7 

O 

1 

•C' 

25  - 

29 

3 

70  -  74 

50  - 

54 

6 

30  - 

34 

13 

55  - 

59 

7 

35  - 

39 

40 

60  - 

64 

20 

40  - 

44 

36 

65  - 

69 

34 

45  - 

49 

8 

70  - 

74 

27 

50  - 

54 

0 

75  - 

79 

6 

45  -  49 

25  - 

29 

1 

30  - 

34 

4 

35  - 

39 

16 

40  - 

44 

38 

45  - 

49 

34 

50  - 

54 

7 

continued 
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XIII  AGE  DISTRIBUTION  OF  WIVES  -  AGEDIS  -  WIDOW. 6 


HUSBAND'S 

WIFE'S  AGE 

%  DIST. 

AGE  GROUP 

GROUP 

OF  WIVES 

75  -  79 

55  -  59 

7 

60  -  64 

7 

65  -  69 

21 

70  -  74 

35 

75  -  79 

25 

80  -  84 

5 

80  -  84 

60  - 

64 

8 

65  - 

69 

8 

70  - 

74 

23 

75  - 

79 

36 

80  - 

84 

22 

85  - 

89 

3 

85  -  89 

65  - 

69 

10 

70  - 

74 

10 

75  - 

79 

26 

80  - 

84 

35 

85  - 

89 

17 

90  - 

2 

90  + 

70  -  74 

13 

75  -  79 

13 

80  -  84 

30 

85  -  89 

32 

90  - 

12 
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XIV  PROPORTIONS  MARRIED  -  PRPMRD  -  WIDOW. 6 


HUSBAND ' S  1968  1975 

AGE  GROUP  1970  1980 


1990 


2000 


AFTER 

2000 


20  -  24 

30 

30 

30 

30 

30 

25  -  29 

70 

70 

70 

70 

70 

30  -  34 

82 

82 

82 

82 

82 

35  -  39 

86 

86 

86 

86 

86 

^d" 

i 

o 

88 

88 

88 

88 

88 

45  -  49 

88 

88 

88 

88 

89 

50  -  54 

87 

87 

88 

88 

88 

55  -  59 

84 

85 

85 

86 

86 

60  -  64 

82 

83 

84 

85 

85 

65  -  69 

80 

81 

82 

83 

84 

70  -  74 

74 

76 

78 

80 

81 

75  -  79 

67 

70 

72 

74 

76 

80  -  84 

55 

58 

60 

62 

64 

85  -  90 

43 

46 

48 

50 

52 

90  + 

31 

34 

36 

38 

40 
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XV  PROBABILITIES  FOR  RE-MARRIAGE  OF  WIDOWS  -  REMAR  -  WIDOW. 6 


For  years  of  widowhood  1968-69 


1968 

Under  20 
.688 

20-24 

.789 

25-29 

.869 

30-34 

.923 

35-39 

.957 

40-44 

.975 

45-49 

.986 

50-54 

.993 

55-59 

.997 

60-64 

.998 

1970 

.270 

.430 

.613 

.765 

.864 

.924 

.961 

.981 

.992 

1.0 

1975 

.541 

.676 

.795 

.880 

.934 

.967 

.984 

.993 

1.0 

1.0 

1980 

.761 

.838 

.902 

.943 

,970 

.986 

.994 

1.0 

1.0 

1.0 

1985 

.841 

.903 

.945 

.970 

.986 

.994 

1.0 

1.0 

1.0 

1.0 

For  years  of  widowhood 

after 

1970 

Under  20 

20-24 

25-29 

30-34 

35-39 

40-44 

45-49 

50-54 

55-59 

60-64 

1970 

,.288 

.451 

.627 

.773 

.868 

.924 

.960 

.980 

.991 

.996 

1975 

.417 

.569 

.723 

.837 

.908 

.952 

.975 

.989 

.997 

1.0 

1980 

.700 

.794 

.872 

.924 

.960 

.981 

.992 

.997 

1.0 

1.0 

1985 

.813 

.880 

.931 

.961 

.981 

.992 

.997 

1.0 

1.0 

1.0 

1990 

.880 

.931 

.961 

.981 

.992 

.997 

1.0 

1.0 

1.0 

1.0 
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XVI  PERCENTAGE  OF  WIDOWS  ENTITLED  TO  WIDOW  BENEFITS  -  PWEWB  -  WIDOW. 6 


YEAR  OF 

WIDOWHOOD 

UNDER 

50 

50-54 

55-59 

60-64 

65-69 

70-74 

75-79 

80-84 

85-89 

90+ 

1968 

90 

85 

75 

70 

60 

55 

0 

0 

0 

0 

1970 

95 

90 

80 

60 

45 

30 

20 

0 

0 

0 

1975 

95 

90 

85 

75 

60 

45 

30 

20 

0 

0 

1980 

95 

95 

90 

85 

75 

60 

45 

30 

20 

0 

1990 

95 

95 

95 

90 

85 

80 

75 

60 

45 

30 

2000 

95 

95 

95 

95 

95 

90 

85 

80 

75 

60 

2015 

95 

95 

95 

95 

95 

95 

90 

90 

85 

80 

2030 

95 

95 

95 

95 

95 

95 

95 

95 

90 

90 

Annual  values  for  this  variable  were  obtained  by  linear  interpolation. 
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XVII  UNESCALATED  FEMALE  DEATH  BENEFIT  FACTORS  -  FFAC  -  WIDOW. 6 


1968  -  72  0 

1973  23 

1974  32 

1975  41 

1976  64 

1977  88 

1978  111 

1979  135 

1980  158 

1981  181 

1982  204 

1983  228 

1984  251 

1985  -  2025 


dependent  upon  plan  being  tested 
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XVIII  UNESCALATED  MALE  DEATH  BENEFIT  FACTORS  IN  1968  -  FAC 6 8 


AGE  GROUP  OF  HUSBAND 


20  - 

24 

600 

25  - 

29 

793 

30  - 

34 

881 

35  - 

39 

864 

40  - 

44 

855 

45  - 

49 

855 

50  - 

54 

832 

55  - 

59 

785 

60  - 

64 

699 

65  - 

69 

405 

WIDOW. 6 
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FLAT  RATE 

PREVALENCE 

RATES  ■ 

-  PRVRTE 

-  DISBN.7 

AGE /YEAR 

1975 

1980 

1985 

1990 

1995 

2000+ 

22-24 

0.04 

0.05 

0.05 

0.05 

0.05 

0.05 

25-29 

0.10 

0.13 

0.13 

0.13 

0.13 

0.13 

30-34 

0.24 

0.35 

0.37 

0.36 

0.36 

0.37 

35-39 

0.40 

0.60 

0.67 

0.69 

0.68 

0.68 

40-44 

0 . 66 

0.96 

1.07 

1.12 

1.13 

1.12 

45-49 

0.96 

1.39 

1.55 

1.63 

1.67 

1.68 

50-54 

1.78 

2.61 

2.93 

3.07 

3.15 

3.16 

55-59 

2.88 

4.27 

4.78 

4.97 

5.08 

5.12 

60-64 

5.00 

7.64 

8.66 

9.01 

9.21 

9.31 

EARNINGS 

RELATED  PREVALENCE 

RATES  - 

PRVRTE  - 

DISBN. 7 

AGE/YEAR 

1975 

1980 

1985 

1990 

1995 

2000+ 

22-24 

0.05 

0.05 

0.05 

0.05 

0.05 

0.05 

25-29 

0.12 

0.14 

0.14 

0.14 

0.14 

0.14 

30-34 

0.30 

0.36 

0.38 

0.38 

0.38 

0.38 

35-39 

0.50 

0.62 

0.68 

0.70 

0.70 

0.70 

40-44 

0.82 

1.00 

1.08 

1.13 

1.15 

1.15 

45-49 

1.17 

1.45 

1.57 

1.64 

1.67 

1.69 

50-54 

2.19 

2.73 

2.96 

3.08 

3.15 

3.18 

55-59 

3.54 

4.46 

4.82 

4.98 

5.08 

5.13 

60-64 

6.14 

8.09 

8.74 

9.02 

9.21 

9.30 

NUMBER  OF 

FEMALES 

PER  1000  ! 

MARRIED 

TO  HUSBANDS  OVER  65 

WHO  WERE 

DISABLED 

AT 

65  AND 

CONTINUE  TO  MEET 

THE 

DISABILITY  TEST  -  FMTH65  -  DISBN.7 


AGE /YEAR  1975 

1980 

1985 

1990 

1995 

2000 

2005 

2010 

2015 

2020+ 

45-49 

0.490 

0.731 

.963 

1.040 

1.087 

1.109 

1.120 

1.120 

1.120 

1.120 

50-54 

1.365 

2.421 

3.257 

3.655 

3.844 

3.942 

3.991 

4.000 

4.000 

4.000 

55-59 

3.605 

6.532 

9.124 

10.393 

11.064 

11.387 

11.552 

11.593 

11.600 

11.600 

60-64 

7.350 

14.112 

19.846 

23.189 

24.881 

25.790 

26.223 

26.360 

26.392 

26.400 

XXII  PROPORTION  INSURED  FOR  DISABILITY  -  PROP  -  DISBN.7 


MALES 

AGE /YEAR  1970  -  1985  1990+ 


22-24 

.40 

.40 

25-39 

.95 

.95 

40-54 

.90 

.91 

55-64 

• 

00 

Ui 

.86 

continued  . . . 
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XXII  PROPORTION  INSURED  FOR  DISABILITY  -  PROP  -  DISBN.7 


FEMALES 


(Moderate  Inflation) 

AGE/YE^R 

1970  -  1975 

1980  -  1985 

1990  -  2005 

2010+ 

22-24 

.20 

.21 

.23 

.24 

25-29 

.45 

.52 

.60 

.61 

30-34 

.40 

.47 

.54 

.55 

35-59 

.35 

.42 

.49 

.50 

60-64 

.30 

.36 

.43 

.44 

FEMALES 

(Reasonable  Stability) 

AGE/YEAR 

1970  -  1975 

1980  -  1985 

1990  -  2005 

2010+ 

22-24 

.20 

.21 

.22 

.23 

25-29 

.45 

.52 

.59 

.60 

30-34 

.40 

.47 

.53 

.54 

35-59 

.35 

.41 

.48 

.49 

60-64 

.30 

.36 

.42 

.43 

XXIII  PROPORTION 

OF  HUSBAND 

AND  WIVES  AT  HOME 

WITH  CHILDREN  - 

PHWHWC  ■ 

AGE  GROUP 

under  25 

.576 

25-29 

.738 

30-34 

.942 

35-39 

.947 

40-44 

.894 

45-49 

.843 

50-54 

.741 

55-59 

.558 

60-64 

.356 

65  + 

.114 

XXIV  PROPORTION  OF  HUSBANDS  TO  TOTAL  POPULATION  -  FACTOR  -  DISBN . 7 


AGE  GROUP 


22-24 

.576 

25-29 

.738 

30-34 

.942 

35-39 

.947 

40-44 

.894 

45-49 

.843 

50-54 

.741 

55-59 

.558 

60-64 

.356 

65  + 

.114 

DISBN.7 


r 
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XXVI 


XXVII 


XXV  PROPORTION  OF  CONTRIBUTIONS  MADE  BY  PERSONS 

INSURED  FOR  DISABILITY  -  DISINS  -  DISBN.7 


MALES 

FEMALES 

1970  -  2(125 

1970  -  1975 

1980  -  1985 

1990+ 

.95 

.70 

.75 

.80 

PROBABILITIES 

OF  BEING 

AN  ORPHAN 

-  PROB  -  CHILD 

.8 

YEAR 

AGE 

GROUP 

0-4 

5-9 

10  -  14 

15  -  17 

1968 

.105 

.155 

.234 

.324 

1970 

.425 

.670 

.984 

1.383 

1975 

.528 

1.710 

2.589 

3.577 

1980 

.517 

1.773 

3.563 

4.947 

1985 

.486 

1.711 

3.571 

5.717 

1990 

.468 

1.648 

3.427 

5.522 

1995 

.437 

1.574 

3.296 

5.297 

2000 

.423 

1.502 

3.156 

5.097 

2005 

.403 

1.424 

3.023 

4.878 

2010 

.400 

1.380 

2.888 

4.672 

2015 

.399 

1.378 

2.796 

4.466 

2020 

.395 

1.376 

2.805 

4.376 

2025 

.401 

1.382 

2.801 

4.367 

SURVIVING  DISABLED  FATHERS  INSURED  FOR  DISABILITY  -  SDFIFD  -  CHILD. 8 


YEAR  AGE  GROUP 


o 

i 

-O 

5-9 

10  -  14 

15-1 

1975 

.399 

.655 

.986 

1.301 

1980 

.488 

.811 

1.232 

1.636 

1985 

.525 

.877 

1.338 

1.778 

1990 

.541 

.909 

1.392 

1.853 

1995 

.546 

.923 

1.420 

1.895 

2000+ 

.548 

.929 

1.432 

1.916 

XIV  SAMPLE  OUTPUT  DATA 


As  described  in  chapter  XI,  PENSIM  projects  the  fund 
levels  for  each  year  to  2025.  Because  of  some  slight  differences 
in  contribution  and  benefit  results,  described  in  chapters  VI  -  X, 
the  fund  projections  do  not  exactly  duplicate  the  federal  est¬ 
imates  . 


The  data  shown  in  this  chapter  is  the  output  for  the 
Canada  Pension  Plan  operating  under  the  moderate  inflation 
economic  assumptions  with  the  white  paper  proposals.  However,  the 
main  tables  in  the  Actuarial  Report  are  based  on  a  non-escalating 
O.A.S.  and  G.I.S.  while  PENSIM  assumes  these  payments  will  increase 
with  the  cost  of  living.  Thus  for  comparison  purposes,  the  PENSIM 
results  in  this  chapter  must  be  read  with  the  capsule  federal  pro¬ 
jections  on  page  52  of  the  Actuarial  Report  which  does  allow  for 
such  escalation. 

The  PENSIM  output  format  is  similar  to  that  of  the 
Actuarial  Report  where  Table  1  in  this  chapter  duplicates  the 
style  of  Table  IB  in  the  Report  and  Table  2  is  similar  to  Table 
3  in  the  Report.  As  explained  in  chapter  XI,  the  third  table  in 
this  chapter  gives  disaggregated  information  for  revenues  and 
costs  of  the  plan. 

The  following  table  compares  the  PENSIM  results  with 
those  of  the  Department  of  Insurance  under  the  escalating  O.A.S.- 
G.I.S.  assumptions  for  the  moderate  inflation  proposed  plan. 

PROJECTED  INVESTMENT  FUND  LEVELS 
($  Billions) 


YEAR 

PENSIM 

FEDERAL5 

DIFFERENCE 

1975 

8.2 

8.5 

0.3 

1980 

13.8 

13.8 

0.0 

1985 

18.6 

18.9 

0.3 

1990 

22.3 

22.8 

0.5 

1995 

22.5 

23.2 

0.7 

2000 

17.0 

17.8 

0.8 

5.  See  page  52  of  the  Actuarial  Report. 
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APPENDIX 


The  ten  source  programs  used  in  the  PENSIM  model  are 
listed  in  this  appendix  for  those  who  wish  to  duplicate  the 
results  of  the  Ontario  model.  All  programs  are  written  in 
standard  FORTRAN  -  IV  and  were  designed  to  operate  on  an  inter¬ 
active  basis  using  a  PDP-10  computer. 

Other  users  are  cautioned  that  this  computer  is  an 
octal  machine,  differing  from  the  IBM  360  or  370  series.  Thus 
programming  changes  will  be  necessary  to  accomodate  the  PENSIM 
model  on  other  computers. 

While  the  program  versions  in  this  appendix  are  the 
most  recent  ones,  continuous  updates  and  revisions  are  taking 
place.  However,  the  programs  listed  here  were  used  to  generate 
the  output  in  chapter  xiv  and  any  output  can  be  compared  on  that 
basis . 
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VERSION  AS  OF  12:00  AUGUST  11,1072 

PROGRAMME  POP. 1 

LAG RANG FAN  POLYNOMIAL  INTERPOLATION  PROGRAM  USING 
FOUR  INTERPOLATION  POINTS  MOVING  THROUGH  TIME  ON  A  FIFTEEN 
YEAR  INTERVAL.  THE  PROGRAM,  IS  USER  TO  INTERPOLATE  POPULATION 
STATISTICS  BETWEEN  FIVE  YEAR  INTERVALS. 

PROGRAM,  WRITTEN  DY  T.  S .  LETT  ON  JAN.  5  10  7  2  FOR  THE 
TAXATION  AMD  FISCAL  POLICY  BRANCH  OF  THE  ONTARIO  GOV'T. 

DIMENSION  W(  4, 6  0  ) ,  !<SUB  (  8  ) ,  FAC  (  4  ) ,  XNUM  ( 15  ) ,  NO  (  2  4  ) ,  POPM  ( IS,  13  ) 
+  ,  POPF(  19,13),  P0P(19,6  0/  2) 

DATA  MO  /  5,  10,  15,  1,  10,  15,  1,  5,  15,  1,  5,  10,  20,  25,  30,  15,  25,  30,  15, 
+20, 30, 15, 20, 25/ 

DATA  KSUB  /l, 4, 7, 10, 13, 16, 10, 22/ 

DATA  17,  FAC,  XNUM,  POP  /24  0*0 . ,  4 *0 . ,  1 5*0  . ,  2  280*0.  / 

DATA  LM, NN, NNM, L, LL, LK  / 0,  1,  15,  1,  1,  0/ 

CALL  I F I LE ( 2  0,  ’ PRJM1 1 ) 

CALL  I  FI LE ( 2 1,  1 PRJF1* ) 

CALL  I F I LE ( 2  2,  ' PRJM ' ) 

CALL  I F I LE ( 2  3,  ' PRJF ' ) 

READ (2  0,  100  ) (POPM ( I , 1),  I =1, 19) 

READ (21, 10  0)  (POPFC  1,1),  1=1,19) 

READ (2 2, 100 )(( POPM( I, J), J=2, 13), I =1, 10) 

READ (2 3,  100) ( (POPF( I , J),  J=2,  13),  I =1,  19) 

FORMAT ( 12G ) 

GO  TO  4 
L  =  2 
LK  =  15 

DO  10  J  =  1 , 4 
LI  1=  L1 1+1 
DO  10  1=1,15 
KK=KSUB( LM) 

IF(J.NE.l)  GO  TO  1 
I F(L. EO. 2)  GO  TO  1 

FAC ( J ) = ( LM-NO ( KK ) ) * ( LM- NO ( KK+ 1 ) ) * ( LM- NO ( KK+ 2 ) ) 

GO  TO  2 

FAC  ( J  )  =  ( (  L1 1-  L  )  *5 -NO  (  KK  )  )  *(  (  LM-  L  )  *  5- NO  (  KK  + 1 )  )  *  (  (  LM-  L  )  *5 
+-NO(KK+2)) 

XNUM  (  I  )  =  (  I  +LK-NOUK)  )*(  I +LK-NO (KK+ 1 ) ) * (  I  +LK-MO(  KK+2  )  ) 

W(J, I )=XNUM( I )/FAC( J) 

CONTINUE 

I  F(  LM.  EO.  8  )  GO  TO  5 
DO  11  1  =NN,  NNII 

I F( ! . EQ. 16. OR. I . EQ. 31. OR. I . EQ. 46)  LL=LL+3 
DO  11  J  =  1 , 1 9 

POP( J, I , 1)=W(1, I  )*POPM(J, LL )+W( 2,  I ) *POPM( J, LL+1)  +  W(3,  I  ) 

+  *PQPIi  ( J,  L.L+2  )  +  W(4,  I  )*POPM(  J,  LL  +  3) 

POP(J,  I  ,2)=U(1,  I  )*POPF(J,  LL  )  +  W(  2,  I  )*POPF(J,  LL+1)+V;(3,  I  ) 
+*POPF ( J, LL+2 )+W(4, I )*POPF ( J, LL+3) 

CONTI NUE 

I  F  (  NNIJ.  EQ.  6  0  )  GO  TO  14 
GO  TO  3 
DO  12  M=  1, 4 
DO  12  N  =  1 ,  15 
W  (ii,  N+15  )  =17(11,  N ) 

W(M/  N+  30 ) =W(M, N ) 

W(M,N+45)=W(M/N) 

NN=  1G 
NNM=6 0 
GO  TO  13 

CALL  OF  I LE ( 2 4,  ’ONE'  ) 

WRITE  (2  4,  15)(  (  (POP(  I  ,  J,K),  J  =  l,6  0),  1=1,30),  K=  1,  2) 

FORMAT  (111  ,  10  ( FG  .  1,  IX) ) 

STOP 

END 


iii 


C  VERSION  AS  OF  12:00  AUGUST  11,1972 
C  PROGRAMME  INDEX. 2 

REAL  YMPE(60),  PM  I  ND ( 6  0 ) , C  P I  ( 6 0 ) , ER I ND ( 60 ) , A V I  NC(G0),CPI  l!C(CO) 
REAL  AVER N (60) 

DATA  AVI NC/1.  0,  1.  07,  1.  06 0,  1.  065,  56*0. / 

nA7A  YMPE/5000.  ,  5000.  ,5100.  ,5200.  ,5300. ,5400. ,5500. ,53*0./ 
DATA  PI!  1  ND/ 109. 4,  109. 4,  111.  6, 113.  8,  116.  1,  118. 4,  54*0.  / 

DATA  CPI /111.  4,  115. 4,  12  0.  1,  125.  5,  129  .  7,  133.4,  5  4*0. / 

DO  100  J  =  l,  3 
1C  =  13  72  + J 
TYPE  110, K 

110  FORMAT (*  SPECIFY  YM  PE  IN  ' ,  14,  ?  :  ’,$) 

ACCEPT  120,  YMPEC7+J) 

120  FORMAT ( G ) 

100  CONTINUE 
DO  130  J=l, 6 
K=19E9+ J 


TYPE  140,  K 

140  FORMAT ( '  oPECIFY  GROWTH  IN  AVERAGE  EARNINGS  IN  ',I4,'(EC  1.035) 

a:  ',$) 

ACCEPT  120,  AVINCC4+J) 

130  CONTINUE 
DO  210  J=l, 6 
K= 19  69  +  J 
TYPE  220,  K 

220  FORMATC*  SPECIFY  CHANGE  IN  CPI  IN  *,14,'  (EG  1.01):  ' , i  ) 

ACCEPT  120,  CPI M  C ( 4  +  J ) 

210  CONTINUE 
TYPE  142 

142  FORMAT ( ’  SPECIFY  CEILING  ON  PENSION  INDEX  (EG  1.02):  ',$) 

ACCEPT  120,  CEILNG 
DO  150  J  =  ll, 6  0 
150  AVI NC( J)=AVI  NC(10) 

AVERN( 1)=1. 


DO  160  J=2, 60 

16 0  AVER!! ( J ) =AVERN ( J- 1 ) *A V I NC ( J ) 

DO  170  J  =  l, 8 

17  0  E  R E AS  =  E  R  B AS + A V  E  R I  i  ( J  ) 

DO  180  J  =  ll,  6  0 

sur;=o . 

DO  130  K =2,9 

19  0  SLM=AVERI! ( J- K )  +SUM 
130  ERI ND(J)=SUM/ERBAS 

DO  200  J  =  1 1 , 6  0 

20  0  YMPE ( J  )  =  (  I  F  I  X ( ( YMPE(  10  )  *ER  I  ND ( -J  ) ) / 10 0 .  )  )*10  0. 
DO  2  30  J  =  1 1,  6  0 

230  CPI NC( J)=CPI NC(10) 


DO  240  J  =  7, 6  0 

240  CPI ( J ) =C P I  (J-1)*CPI MC(J) 


DO  250  J  =  2, 6  0 


2  50  CPI  (J)  =  ((CPI ( J  )  +  CPI (J— 1) )/2.  ) 

C  THIS  CALCULATION  OF  CPI  GIVES  US  THE 
C  THE  12  MONTHS  ENDING  ON  JUNE  30  OF  YR 


VALUE  OF  AVERAGE  CPI  FOP. 

"J" 


DO  2  60  J  =  7, 6  0 

PI!  I  ND ( J  )  =  PN  I  ND  ( J-  1 )  *CE  I  LNG 


I F (CPI  ( J- 1 ) . LT. PM  I ND ( J ) ) PN I NP( J ) =  C  P I  ( J-l) 

I F ( PN I N P ( J ) . LT.  ( 1 . 01*  PNI ND ( J-l ) ) ) PH  I IIP  ( J  )  =  PN  I ND(J-l) 
260  CONTINUE 
DO  270  J=l, 60 
A VENN ( J ) =AVERN ( J ) / 1 .  0 7 


2  7  0  PN  I  ND ( J )  =  PNI ND ( J ) / 1 . 09  4 
CALL  OF  I LE ( 2  5,  *  TXFPR ' ) 

CALL  OF  I LE ( 26,  ' TF  PNX 1 ) 

CALL  OF  I  LE  (  2  7,  '  TF  I  !!D  '  ) 

WRITE (2 5, 300)  ( YM PE ( J ) , J =1, 6 0 ) 
WRITE (26, 301)  ( PNI ND( J ), J=l, 60 ) 
WRITE  (2  7,  3  02  )  ( AVEP.N  ( J  ) ,  J  =  1,  6  0  ) 

300  FORMAT(10(F7. 0, IX)) 

301  FORMAT ( 10 ( F6 . 2,  IX)) 

302  FORMAT ( 10 ( F6 . 3,  IX ) ) 

STOP 

END 


iv 


C  VERSION  Ao  OF  12:00  AUGUST  11,1072 

C  PROGRAMME  MliAE.3.  TIMS  IS  THE  THIRD  PROGRAMME  IN  THE  CPP 
C  SET  OF  PROGRAMMES.IT  IS  USED  TO  CALCULATE  MODIFIED  MOT  - 
C  I  FI  ED  AVERAGE  EARNINGS  USING  THE  METHODS  OF  THE  DEPT.  OF 
0  INSURANCE  IN  OTTAWA. FOR  ADDITIONAL  INFORMATION  CONSULT 
C  THE  CPP  DOCUMENTATION  F I LE . PROGRAMME  WRITTEN  CY  G. JACOBS 
C  AND  T. LETT  FOR  THE  TAXATION  AMD  FISCAL  POLICY  BRANCH, 

C  JAN-FEB  1972. 

C 

REAL  YMPEC60),  AVERNUl,  6  0,  2),  I  NDEX(60),YPE(60),  AD  J  (22),  FI  LE(10) 
COMMON  / I ODATA/  VALU ( 1 1, 6 0, 8 ) 

DATA  FILE/  'RSCUR  ',  'Ml  CUR ',  'RCPP.O  ',  'Ml  PRO  ',  'TXFPB ',  'MMP.SC  '  ,  '  MMf  1C 

+  *,  'MMRSP',  'Ml  ill  I  P',  'MMTFP  V 
C 

C  THIS  SECTION  IS  USED  TO  INPUT  VALUES  OF  YMPF  THAT  ARE  TO  BE 
C  USED  IN  THE  PROGRAMME  CPP.  THE  FOUR  POSSIBILITIES  ARE: 

C  RSCUR  WHICH  IS  REASONABLE  STAC  I L I TY  UNDER  THE  CURRENT  PLAN 

C  RS PRO  WHICH  IS  REASONABLE  STABILITY  UNDER  THE  PROPOSED  PLAN 

C  Ml  CUR  WHICH  IS  MODERATE  INFLATION  UNDER  THE  CURRENT  PLAN 

C  Ml  PRO  WHICH  IS  MODERATE  INFLATION  UNDER  THE  PROPOSED  PLAN 

C  THE  VALUES  ARE  STORED  IN  THE  DATA  FILE  WITH  TIE  SAME  NAME 
C  WITH  TEN  VALUES  PER  LINE.  THE  VALUES  OF  YMPE  ARE  OBTAINED  BY 
C  USING  THE  ASSUMPTIONS  ON  PG.  23  OF  THE  ACTUARIAL  REPORT  FOR 


C  THE  INFLATION  FACTORS  AMD  BY  APPLYING  THE  EARN  I NGS  INDEX  FOR 
C  THE  YEARS  1966-2025 
C 

2  TYPE  20 
1  FORMAT ( 10 G) 

20  FORMAT ( 8  TYPE  IN  PLAN  TO  BE  TESTED:  ' ,  $  ) 

ACCEPT25, FNAME 

25  FORMAT (A5 ) 

DO  2 G  I  K  =  l,  5 

26  I  F  (  F  NAf  i  E .  EQ .  F  I  L  E  (  I  !<  )  )  CO  TO  28 
TYPE2  7,  FNAME 

27  FORMAT ( IX, A5, '  ?,  TRY  AGAIN'/) 

GO  TO  2 

28  CALL  OF  I LE ( 29 , F I LE ( I K+5) ) 

CALL  I  FI LE ( 2 2, FNAME) 

READ (22,1)  ( YMPE ( i  ), i =1,60) 

CALL  I  FI LE ( 2 8,  ' ADJFC ' ) 

READ (28,427)  (ADJ( I  ), I =1, 22 ) 

427  FORMAT ( 9G ) 

C 

C  THE  NEXT  SECTION  INPUTS  THE  AVERAGE  EARNINGS  OF  MALES  ANT  FEMALES 
C  IN  1967  AND  MULTIPLIES  THIS  FIGURE  BY  AN  INDEX  TO  REFLECT 
C  THE  INCREASE  ANNUALLY  AND  THUS  CALCULATE  AVERAGE  EARNINGS  BY  AGE 
C  AND  SEX  IN  ALL  YEARS  1966-2025.  THE  INDEX  FACTORS 
C  ARE  OBTAINED  FROM  THE  ASSUMPTIONS  OF  THE  ANNUAL  I  NCR EASE 
C  IN  AVERAGE  EARNINGS  FOUND  ON  PAGE  23  OF  THE  ACTUARIAL 
C  REPORT. THE  REASONABLE  STABILITY  INDEX  IS  STORED  IN  RSI  HD . DAT 
C  AND  THE  MODERATE  INFLATION  INDEX  IS  STORED  IN  M I  I  IIP.  DAT 
C 


CALL  I F I LE ( 2  3,  1 A V E 6  7 ' ) 

READ  (2  3,1)  (CAVERN  (I  ,  2,K),  I  =1,  11 ),  K  =  l,  2  ) 

GO  TO  (30, 32, 30, 32, 31), I K 
32  CALL  I  F  I  L  E ( 2  4 ,  ' M I  IN  D  5  ) 

GO  TO  35 

30  CALL  I  FI LE ( 2 4,  'RSI ND '  ) 

GO  TO  35 

31  CALL  IF! LE ( 2  4,  ' TF I ND  '  ) 

35  READ (24, 1 )  ( I NDEX( I  ), I =1, 60) 

DO  40  K  =  1,  2 
DO  40  J=l,60 
DO  40  1=1,11 

4  0  AVERNC  I,  J,f<)=AVERN(  1,  2,  K  )  *  I  NDEX(J) 

C 

C  THE  NEXT  SECTION  IS  USED  TO  CALCULATE  YBE  WHICH  IS  12-1  OF  YMPE 
C  ROUNDED  DOWN  TO  THE  NEAREST  100  If:  THE  CURRENT  PLANS  AMP  A 
C  FLAT  AMOUNT  CF  COO  IN  THE  PROPOSED  PLANS 
C 


GO  TO  (60,  60,  61,  6  1,  62  ),  I  K 


V 


62  TYPE63 

C 3  FORMAT ( IX ' YBE  CALCULATION  CURRENT/ PROPOSED  ?'/) 

ACCEPT25,  ANS 

I F  ( ANS . EQ. ' CURRE 1 )  GO  TO  60 
61  00  55  I =1,60 
55  YB E ( I ) =600 
GO  TO  70 
CO  DO  65  1=1,60 

6  5  YSE( I  )  =  ( I  FI X(. 12  *YMPE ( l)+l)/100)*100 
C 

C  WE  INSERT  THE  +1  ABOVE  TO  ACCOUNT  FOR  INTEGER  PI  VISION 
C  THE  NEXT  SECTION  CALCULATES  THE  X  VALUES  REQUIRED  FOR  THE  Si’Ll 
C  SUBROUTINE  TO  CALCULATE  THE  CORRESPONDING  Y  VALUES  USED  IN 
C  THE  CALCULATION  OF  MODIFIED  MODIFIED  AVERAGE  EARNINGS. 

C 

70  J  J  =  4 

DO  81  K=l, 2 
DO  80  J=l,60 
DO  80  1=1,11 

VALU  (  I ,  J,  K  + J  J  )  =  100*YMPE(  J  )/AVERN(  I ,  J,  K) 

80  VALUC  I ,  J/K+1+JJ)=100*YBE(J)/AVERN(  I  ,  •  J ,  K  ) 

81  vl  J=5 

CALL  SPLINE 
r 

C  THE  FOLLOWING  SECTION  CALCULATES  MODIFIED  MODIFIED  AVERAGE 
C  EARNINGS  IN  ONE  STEP.  THE  INTERPOLATED  Y  VALUES  FROM,  SPLINE 
C  ARE  USED  TO  CALCULATE  THE  TEMPORARY  MODIFIED  AVERAGE  EARN- 
C  INGS  WHICH  ARE  IN  TURN  USED  TO  CALCULATE  TMF  MODIFIED  AVE- 
C  RAGE  EARNINGS  FROM  WHICH  MODIFIED  MODIFIED  AVERAGE  EARNINGS 
C  ARE  DERIVED. SEE  COLUMN  10  WORKSHEET  DO-5  FOP  METHOD. 

C 

JJ  =  0 

DO  90  K= 1, 2 
DO  91  1=1,11 
DO  91  J=l,60 

91  VALUC I , J,K)  =  ( ( CAVERN ( I , J, K)*( VALUC I  ,  J,  JJ+3)-VALU( I ,  J, 

&JJ  +  4  )  )  )+( YMPEC J)*( 10  0-VALUC I,  J,  JJ+1) ) ) ) / ( 10 0- VA LUC  I  ,  J, 

&JJ  +  2  )  ))*ADJ( I +( JJ*3)-K+1)*( YMPEC 1)/YMPE( J) ) 

SO  J  J  =  4 

C  THIS  CALCULATION  IS  USED  TO  OBTAIN  THE  MODIFIED 
C  MODIFIED  AVERAGE  EARNINGS  LEVELS  BY  AGE  GROUP  AMD  SEX  AMD 
C  YEAR  (  1966-2025).  THE  METHOD  USED  IS  ADAPTED  FROM.  THAT  OF 
C  THE  FEDERAL  DEPT.  OF  INSURANCE  THAT  THEY  USED  IN  THE  1969 
C  CPP  ACTUARIAL  REPORT.  THE  MATRIX  AVER!!  IS  EXPLAINED  ABOVE. 

C  THE  RESULTANT  *  Y ’  FACTORS  FROM  SPLINE  ARE  STORED  IN  VALU. 

C  THE  VECTOR  ADJ  CONTAINS  TWO  GROUPS  OF  11  ADJUSTMENT  FACTORS 
C  (MALE  AND  FEMALE)  WHICH  SCALE  THE  RESULTS  FROM  SPLINE. 

C  THIS  OPERATION  IS  NECESSARY  BECAUSE  THE  DATA  USED  IN 
C  SPLINE  RELIED  ON  THE  40-44  AGE  GROUP. THE  ADJUSTMENT  FACTOR 
C  SCALES  THE  RESULTS  INTO  11  AGE  GROUPS  INSTEAD  OF  ONE. 

C  THE  VALUES  IN  THIS  VECTOR  WERE  OBTAINED  FROM  WORKSHEETS 
C  DO- 5  AND  DO-8  FROM  THE  DEPT.  OF  INSURANCE.  THE  FINAL  FACTO!'. 

C  WHICH  IS  THE  RATIO  OF  YMPE'S  IS  USED  TO  BRING  THE  MODIFIED 
C  AVERAGE  EARNING  FIGURE  BACK  TO  1966  CONSTANT  VALUES  AND 
C  THUS  OBTAIN  THE  MODIFIED  MODIFIED  AVERAGE  EARNINGS 
C  MATRIX  FOR  ALL  FURTHER  CALCULATIONS  IN  THIS  MODEL. 

TYPE  94, F I LEC I K+5) 

94  FORMAT ( '  OUTPUT  FILE  IS  ' , A5,  1 . DAT  1 / ) 

WR! TEC  29,  95  )  ( ( ( VALU ( I , J, K ) , J  =  1, 6 0 ),  I =1, 1 1 ), K  =  l, 2 ) 

95  FORMAT ( 5 ( F 7. 0,  IX)) 

C 

C  THE  OUTPUT  IS  STORED  IN  FILES  WITH  AN  'MM'  PREF I XCMCD I F I  ED 
C  MODIFIED)  WITH  A  CORRESPONDING  SUFFIX  FROM  THE  OPTION 
C  TESTED. THESE  FILES  ARE  STORED  ON  DECTAPE  P423  FOP  FUTURE 
C  USE  IN  PROGRAMME  RETBN.4. 

C 

100  FORMAT ( 

STOP 


'  ,,9(F7.3,1X)) 


[ 

l 

l 

r 


vi 


END 

SUBROUTINE  SPLINE 
C 

C  THIS  SUBROUTINE  INTERPOLATES  Y  VALUES  FROM  GIVEN 
0  X  VALUES  USING  THE  CUBIC  SPLINE  METHOD. A  SET  OF  ORDERED  PAIRS 
C  CREATES  AN  INTERPOLATING  EQUATION. THE  ORDERED  PAIRS  ARE  READ 
C  IN  FROM  THE  FILE  PO I  NT. DAT  ALONG  WITH  THE  FIRST  DERIVATIVES  OF 
C  THE  END  PO I  NTS (D(1),D(2)).  THE  INTERPOLATING  X  VALUES  ARE  CARRIED 
C  THROUGH  COMMON  IN  THE  ARRAY  VALU.THE  INTERPOLATED  Y  VALUES 
C  ARE  RETURNED  THROUGH  THE  SAME  ARRAY  TO  THE  MAIN  PROGRAMME. 


Ill 

C 

c 

c 

c 


REAL  X(31)/Y(31)/C(100)/W(100) 

INTEGER  KSUB ( 8 ), D ( 2 ) 

COMMON  / I ODATA/  VALU ( 1 1, 6 0, 8 ) 

DATA  C,  W/K1/  N,K3UB/200*0. ,  0,  31,  1,  2,  3,  4,  5,  G,  7,  3/ 
CALL  I F I LE ( 2 0,  “POINT5) 

I F(K2. EQ. 8)  CO  TO  1 
I  F  (  K 1 .  EQ. G.OR.K1. EQ. 2)  III  =5 
I F ( K 1. EQ.4.0R.K1. EQ.C)  Ml =7 

READ (20, 111)  J, ( D ( ! ), I =1, 2) 

READ (20, 111) ( X ( I ), 1=1, N) 

READ (20, 111 ) ( Y ( I ), I = 1 , N ) 

FORMAT ( 10G/9G/9G/3G) 


THIS  SCALING  IS  USED  ONLY  FOR 
AND  SHOULD  BE  REMOVED  FOR  ANY 


THE  CPP  DATA 
OTHER  DATA  SOURCES 


DO  35  I = 1 ,  r 3 
X ( I ) =X ( I )*100 
35  Y(I)=Y(I)*100 

Q=X  ( 2 )  -  X ( 1 ) 

Y  I  =  Y  ( 2  )  -  Y  ( 1 ) 

IF  (J.EQ.2)  GO  TO  100 
C ( 1 ) =0*D ( 1 ) 

C  (  2  )  =  1.  0 

V/(  2  )  =  YI  -C(l) 

GO  TO  200 
100  C ( 2 ) =0 . 0 

IK  2 )=0. 5*Q*C*D( 1) 

2  00  M= I  J  —  2 

IF(M.LE.O)  GO  TO  350 
DO  1000  I =1, M 
A  I  =Q 

Q=X? I +2 ) -  X(l+1) 

H  =  A  I  /Q, 

C ( 3* !  ) =-H/ (2 . 0-C ( 3* I  -  1 ) ) 

W( 3* I )  =  (-Y!-lJ(3*l -1) )/(2. 0  -  C ( 3* I  - 1 ) ) 

C  (  3*  I  + 1 )  =-H*l  7  ( H-C  (  3*  1  )) 

VK  3*  I  + 1 )  =  ( Y I  -W (3*1  ) )/  (l’-C(  3*1  ) ) 

Y I =Y( I +2  ) -  Y( I +1) 

C(3*l +2 )  =  1. 0/(1. 0-C ( 3*1 +1)  ) 

1000  IK  3* I +2 )  =  ( Yl -VK  3*1 +1) )/(l. 0-C (3*1+1)) 

350  IF(J.EQ.l)  GO  TO  400 

C( 3*H-3 ) = ( Q*Q*0 ( 2 )/2. O-IK  3*N-4 ) )/ ( 3. 0-  C(3*N-4)) 
GO  TO  500 

4  00  C  (  3  *N-  3 )  =  ( 0  *D  ( 2  )  -  Y I  -  IK  3*N-4)  )/  (2.  0-C  (  3*1.'- 4  ) ) 

500  M=3*M-6 

I F (M. LE. 0)  GO  TO  700 
DO  GOO  I  I = 1 , M 

I =M- 11+3 

60  0  C( I  )=\K  I  )-C( I )*C( I +1) 

700  IF(J.EQ.l)  GO  TO  800 

C(1)=Y(2)  -  Y(1)-IK2)-C(3) 

C(  2  )='./(  2  ) 


GO  TO  8 

800  C  ( 2  )  =1 J (  2  ) - C  (  3  ) 

8  X1=X1+1 
K2=XSUB(K1) 


I 


Vll 


DC  9  i J  =  l, 11 
DO  9  1 K  =  1 , 6  0 
DO  10  1=2,30 

10  I F(VALU( I J, I K,MI ). LT.X( I ) )  CO  TO  20 

1  =f’ 

2  0  Z= ( VALU( I J, I K, M I  )- X ( I  - 1 ) ) / ( X ( I )- X ( I  - 1 )  ) 

VALU ( I J,  I  K,  K2 )  =  ( (Z*C( 3*1 -3)  +  C(3*l -4 ) )*Z  +  C( 3*1 -5)  ) 
+  *Z  + Y( I  - 1 ) 

9  I F(VALU( ! J,  I K,  K2 ) . GT. 100.  )  VALU ( 1 J,  IK,K2)=100. 

I  F( (Ml /2)*2. EQ.MI  )  CO  TO  2 
HI =r\ +1 

CO  TO  8 
1  RETURN 
END 


/ 


VXX1 


C  LATEST  UPDATE  12:00  AUGUST  11,1072 

C  PROGRAM  RETBN.4  IS  USED  TO  CALCULATE  THE  COSTS  OF  THE 
C  CANADA  PENSION  PLAN  RETIREMENT  BENEFITS.  THE  PROGRAM 
C  REQUIRES  A  DATA  FILE  OF  MODIFIED  MODIFIED  AVERAGE 
C  EARNINGS  (SEE  PROGRAM  MHAE.3)  AND  A  DESIGNATION  OF 
C  PLAN  BEING  TESTED  (INPUT  FROM  TTY). 

REAL  MMAE(  11,6  0,  2),  PART  (11,  10),  PI  'MAE  ( 11,  6  0,  2  ),  SUM (  - 12  / 1 1,  2  ) 
REAL  FI LE ( 2  5 ) , POP( 19, 6  0, 2 ), TEM1 (- 12/ 11 ), FACTOR ( 15, 6  0, 2) 

REAL  TPNER(-12/11,  2  ),  TEM  ( -  12  /  1 1,  2  ),  DSDRP( -12/11,  9) 

REAL  YMPE (60), PM  I ND ( 6 0 ) , ESC1 ( 6 0 ), RTF AC ( -  12 / 11, 2), DREDG(60) 

REAL  PI  HD  I  V(- 12/  11,  4  7,  2),  RTCST(6  0,  3  ),  ESC2  (  60  ) ,  R.FAC  (  2,  5,  2  ) 

REAL  SURVRT (15, 8, 2 ), NMDTIK  15, 6  0,  2 ),  DTHCS 1 (6  0,  3), DTMCS2 (6  0,  2 ) 
INTEGER  J  J  (  22  ), NN( 13 ), YR ( 6 0 ) , FRSTYR ( -  12 / 10 ) , LASTYR( 10) 

INTEGER  YRSPRT( -12/10) 

COMMON/! ODATA/I ND I V(-12/ll,47,  2),  EXPOS (- 12/ 11 ), DROP( -12 /l 1, 2  ), 


•i 

DATA 


0, 

LX 

R, 

DATA 

&7 

DATA 

DATA 

DATA 


NR, DRPRT 

PART/. 65, 3*1. 0, 3*. 93, 2*. 87, . 78, . 53, .68, 3*1. 0, 3*. 94, 2*. 88, 

.  79,  .  54,  .  46,  .  66,  .  44,  G*.  36,  .  25,  .  13,  .  5,  .  60,  .  5,  6 * .  42,  .  20,  .  13,  .  55, 
.  73, .  5  7,  6*.  4  8, . 34,  . 14,  .  58,  . 7  5,  .  5  8,  G*.  49, .  3  5, . 14, . 4G, . GC, . 44, 
5*. 36, . 25, . 13, . 49, . 68, . 5, 6*. 41, . 29, . 13, . 53, . 71, . 56, G*. 47, 

. 33, . 14, . 55, . 73, . 57, 6*. 48, . 34, . 14/ 

JJ/5,  10,  15,  2  0,  2  5,  30,  35,  4  0,  4  5,  5  0,  5  5,  6  0,  G  5,  70, 

5,  8  0,  8  5,9  0,  9  5,  10  0,  10  5,  1  10/ 

MN/8,  13,  18,  23,  28,  33,  38,  43,  4  8,  53,  58,  63,  C8/ 

FRSTYR/ 14  *18,  21,  26,31,  36,41,  4  5,51,  56,61/ 

LASTYR/2  0,  2  5,  3  0,  35,  4  0,  4  5,  5  0,  5  5,  6  0,  6  5/ 


DATA  FILE/ 

&’RSCUR\  !MI CUR5,  8RSPR08,  'Ml  PRO5,  *TXFPBS,  'MMRSC8, 
A  1  ( !f  If  1 1  P 8 ,  5  MMTF  P  5 ,  5  DHRSC  1 ,  8  DHM 1  C5,  '  D  H  R  S  P  8 ,  9  DHM  I  Pa, 
A  5  RTM  1C',  9  RTRS  P 8 ,  8  RTF!  1  P’,  8  RTTF  P 8 ,  8  D  T  R  S  C  5 ,  0DCMI C 
A  8  DCTF  P 8 / 


MMM  I  C  8 ,  8  MM  R  S  P  8 , 
DHTFP8,  8  RTRSC 5 , 
,  0  DDRS  P  9 ,  8DCMI P 


/ 


DATA  DSD RP/ 14*1.  002,  10*1. ,  14*1. 003,  1.  002,  9*1.,  14*1.  004,  2*1. 003,  8*1 
A.  ,  14*1.  005,  2*1. 004,  1.  003,  7*1.  ,  14*1.  00G,  2*1.  0055,  1.  0045,  1. 003,  6*1. , 
A  16*1.007, 2*1. 006,1. 004, 5*1. ,18*1. 0085,1. 00 7 5, 1.005, 4*1. ,16*1. 01, 
A  3*1. Oil, 1. 01, 1. 007, 3*1. , 17*1. 015, 1. 01G, 2*1. 017, 3*1. 012, 1. / 

DATA  RFAC/61. , 71. , 86 . , 114 . , 115 . , 16 7. , 14 8 . , 2 32 . , 189 . , 309 . , 

A  21. ,  12. ,  30. ,2  0. ,42. ,31. ,55. ,45. ,  73. ,61./ 

CALL  C LOCK  1 


C  THE  NEXT  SECTION  IS  USED  TO  INPUT  THE  VARIOUS  POLICY  OPTIONS 
C  THAT  ARE  TO  BE  TESTED  FOR  THIS  RUN 

19  TYPE  20 

20  FORMAT ( 8  TYPE  IN  PLAN  TO  BE  TESTED:  8,$) 

ACCEPT  2  5,  F NAM E 

DO  21  IK*  1,5 

21  I F ( F NAM E. EQ.FI LE(I K)) GO  TO  24 
TYPE  2  3,  F NAME 

23  FORMAT ( IX, A5,  8  ?  TRY  AGAIN!  '/) 

GO  TO  19 

22  FORMAT (1G) 

25  FORMAT (A5 ) 

24  TYPE  26 

2  6  FORMATC  TYPE  IN  DROPOUT  RATE  (0-1):  ',$) 

ACCEPT22, DRPRT 
TYPE  27  , 

2  7  FORI' AT  (  8  TYPE  IN  RETIREMENT  PENSION  RATE  (0-1):  8 , 0  ) 

ACCEPT22, RETRT 
TYPE  28 

28  FORMATC  DO  YOU  WANT  EARNINGS  TEST?  (YES/NO):  *,$) 

ACCEPT29, ERNTST 

29  FORMAT ( A2 ) 

TYPE  30 

30  FORMATC  OUTPUT?  ( TAD LE/DATA )  :  ',$) 

ACCEPT29, OUT 

C  THE  NEXT  SECTION  READS  IN  THE  YMPE  VALUES,  THE  POPULATION  DATA, 
C  THE  SURVIVAL  RATES,  AND  THE  PENSION  INDEX  TO  EE  USED  DEPEND! Nc/ 
C  ON  THE  POLICY  VARIABLES  BEING  TESTED. 

CALL  I  FILE  (2  2, FNAME ) 

READ  (22,1)  (  YMPE  (  I  ),  I  =1,  b  0  ) 

1  FORMAT ( 10G ) 

fa  I  I  I F I  I F ( 2  4 .  'ONE8  ) 


\ 


/ 


IX 


READ  (24, 1 )  (((POP(l/J/K)/J  =  l/  60)/l=l/10)/K  =  l/  2) 

CALL  I  F  !  LE  (  2  5,  '  SURVf  i 1  ) 

READ  (25,9)  (  ( (5URVRT  (l,J/K),J  =  l,8),  I=1,15),K  =  1,2) 

9  FORMAT  (  8  G ) 

GO  TO  (  36,  37/  36,  37,  38  )  I  K 

36  CALL  I  FI L E ( 2 3,  ' RS PNX 1 ) 

34^  CALL  I F I LE ( 26,  ' RSDRD  '  ) 

GO  TO  39 

37  CALL  I  FI LEC2  3,  'Ml PNX1  ) 

3  7S  CALL  I  FI LE(2  6,  'Ml DRD  '  ) 

GO  TO  39 

38  CALL  I F I LE ( 2 3, ' TF  PNX '  ) 

TYPE  2 

2  FORMAT  (  '  ECONOM  I  C  ASSUMPTIONS?  (  RS/M  I  )  :  ' ,  %  ) 

ACCEPT  29, A NS 

IF  CANS.  EQ.  5  Ml  '  )GO  TO  3  7^' 

GO  TO  3G4T 

39  READ (2 3,1)  ( PN I MD ( I  ) ,  ! =1, 6 0 ) 

R  EAD (26,1)  (DREDC( I  ), I =1,60) 

C  THE  NEXT  SECTION  INPUTS  THE  APPROPRIATE  DATA  FOR  THE  MODIFIED 
C  MODIFIED  AVERAGE  EARNINGS  AS  CALCULATED  If!  PROGRAM  f’MAE.3 

3  CALL  I F I LE ( 2 1, F I LE ( I K+5 ) ) 

CALL  OF  I LE(2  7, FI LE ( I K+2  0  ) ) 

CALL  OF! LE ( 2  8, F 1 LE ( I K+15) ) 

CALL  OF  I LE(29, FI LE( I K+10 ) ) 

READ (21, 35)  ( ( (MMAE( I , J, K ), J  =  l, 60 ), ! =1, 11 ), K  =  l, 2 ) 

35  FORMAT ( 5G ) 

I F ( ( I K / 2 ) *  2 . EQ.  I K.OR. ( IK. EG. 5 . AMD . ANS . EG .  !U I  ’  )  )GO  TO  5 
m  i  =4 
GO  TO  6 

5  1111=0 

6  JJJ=0 


DO  8  i<=  1,  2 
DO  7  1=1,11 
DO  7  U  =  1 , 6 0 
i\!  1  =  1 


I F ( K . EQ. 1. AND. J.GE. 20)  Nl=2 
! F(K. EQ. 2. AND. J.GE. 1)  Nl=3 


I F ( K . EQ. 2 . AND . J . GE . 1 0 )  Ml =4 
! F(K. EQ. 2. AND. J.GE. 20)  Nl=5 
I F(K. EQ.2.AND. J.GE. 40)  Ml =6 

C  THE  NEXT  CALCULATION  MULTIPLIES  THE  MATRIX  OF  MODIFIED  MODIFIED 
C  AVERAGE  EARNING  BY  THE  APPROPRIATE  LABOUR  FORCE  PART  I C I  PAT  101! 

C  RATE  DEPENDING  ON  THE  SEX, THE  YEAR  AMD  THE  PLAN  BEING  TESTED 

7  PMMAE (  I  ,  J,  K )  =1  UlAE  (  I ,  J,  K)*PART(  I  ,  JJJ  +  N1) 

8  J J J= J J J+ I M I 

C  THE  NEXT  SECTION  PERFORMS  A  MATRIX  TRANSFORMATION  WHEREBY  THE 
C  MMAE'S  FOR  ANY  AGE  GROUP  (F..G.  AGE  -2  5  IN  196  5;  AGE  0  IN 
C  1965;  AGE  35  IN  1965)  ARE  TRANSFORMED  INTO  A  ROW  OF 
C  VALUES.  TIMS  SIMPLIFIES  THE  DIAGONAL  STEP-WISE  ADDITION  OF 
C  MMAE'S  FOR  ALL  AGE  GROUPS  AND  ALSO  SIMPLIFIES  THE  CALCULATION 
C  OF  EARNINGS  DROPPED  OUT  IN  SUBROUTINE  MIN.  THE  TRANSFORMAT I  ON 
C  IS  DONE  FOR  THE  MATRIX  OF  MMAE'S  AND  THE  MATRIX  OF  PARTICIPATING 
C  MMAE'S  (PMMAE).  THE  TRANSFORMED  MATRICES  ARE  CALLED  I ND I V  AND 
C  PINDIV 

DO  70  K  =  1,  2 
DO  70  1=2,10 
DO  70  J  =  1 , 4 


I ND I  V ( I , J, K ) =MMAE ( I , J, K  ) 

70  PI ND I  V ( I , J , K ) = PMMA E ( I , J , K ) 
DO  80  K=l, 2 
DO  80  1=2,9 
DO  80  L= I + 1, 10 
Ml  !=  J  J  (  L-  I  ) 


DO  8  0  J  =MM, MM +  4 
I  ND  I  V(  I  ,  J,  K )  =MI  1AE (  L,  J ,  K  ) 

80  PI ND I  V ( I , J,K)  =  PMMAE(L,  J,K) 
DO  90  K= 1, 2 
DO  90  I =0, -12, -1 
N2=NN(- ( I -1) ) 


If 


X 


i  F  ( N2 .  GT.  6  0  )  I '2  =  6  0 

!  ND I  V(  1 , 1,  K)  =MKAE ( 1,  M2,  K  ) 

!NDIV(!,2,K)=MMAE(1,N2+1,K) 

PI[iDIV(l,l,K)  =  PMMAE(l,N2,K) 

90  PI  NO  I  V(  I  /  2 ,  IO  =  PMI 1AE ( 1 ,  M 2  + 1 ,  i<) 

J  =  0 

DO  100  K  =  1 , 2 
DO  100  !=1, -12,-1 
DO  100  L  =  2, 10 
MM  =  J  J  (  L  -  I  ) 

DO  10  0  J=MM,  Mi‘i+4 
NA= J-  ((-I  *5 )  +  7 ) 

I  J=J 

I F ( I J . GT. 60 ) I J=60 
I NDI V( I , NA, K)=MMAE(l, I J , K ) 

10  0  P I  I'D  I  V  (  I ,  NA,  K )  =  PMMAE  (  L,  I  J,  K ) 

DO  105  K  =  l, 2 
I  f'D  I  V(  1,  1,  K )  =fV1  A E ( 1,  3/  K  ) 

I  HD  I  V ( 1, 2 , K) =MM A E ( 1 , 4 , K ) 

PI NDI V(l/ 1, K)  =  PMMAE(1/ 3, K  ) 

10  5  PI  NDI  V(l/  2 ,  K)=PMMAE(1,4,K) 

DO  192  NR=1,  9 
DO  108  K  =  l, 2 
DO  108  I =NR-10, MR+1 
108  SUM ( ! , K ) =Q . 

DO  110  I  =NR-1Q, NR+1 

YRSPRKI  )=LASTYR(NR+1)-FRSTYR( I  ) 

I FCYRSPRTC I ). LT. 0 ) YRS  PRT ( I  )=Q 
110  EXPOS ( I ) =DRPRT* YRS PRT ( I ) 

DO  120  K  =  l,  2 
DO  120  l=NR-10,NR+l 
DO  120  J  =  l,  YRS  PRT ( I  ) 

120  SUM ( ! ,K)=SUM( I , K )+  P I NDI V( I, d,K) 

CALL  Mil! 

DO  140  ! =NR-10, NR+1 
I  I  =  1 

I  F(  I  I  .  LE.  l)DROP(  I  1,1)=.  5*DROP(  I  1 , 1 ) *. 65 
I F( I  I . LE. l)DROP( I  1 ,  2  )  = . 5*DRO P ( I  f, 2)*. 5 
! F ( I  I  .GT.l)DROP(l  I / 1 ) =. 5*DROP( I  ! / 1 ) *PART( NR+ 1, 1 ) 
I  F  (  I  I  .GT.  l)DROP(  1  1,2)=.  5*DROP(  I  I  /  2  )*  PARK  NR+ 1,  3  ) 


140  CONTINUE 

C  CAUTI  ON'*****DRGP  IS  BEING  OVERWRITTEN 

C  THIS  VALUE  OF  .5  IN  THE  ABOVE  CALCULATION  IS  TO  TAKE  ACCOUI 
C  CF  THE  NIL  EARNINGS  OF  CONTRIBUTORS  AND  TKUS  ONLY  USE 
C  HALF  THE  MAXIMUM  DROPOUT  AMOUNT. 

DO  ICO  K=l/2 
DO  160  ! =  MR- 10/ NR+1 
160  TPNEIU  1,10 =SUM ( I  ,  K)-DROP( I  ,  IO 
DO  170  ! =  NR- 10, NR+ 1 

TEMKI  )  =  YRS  PRT  (  I  )  *  ( 1 .  -DR  PRT  )*(!./  RETRT ) 

! F ( TEM1 ( I ). LT.40. ) TEI  11(1  )=YRSPRT( ! )*(1. /RETRT) 

170  CONTINUE 


DO  180  K  =  l, 2 
DO  130  l=NR-10/MR+l 

180  RTFAC( I , K)  =  (  TPNEIU  I , K)/TEM1( ! ))*DSDRP( I ,  NR) 

DO  192  K  =  l,2 

DO  19  2  l=NR-10,NR+l 

J=J J (NR- I +2 ) 

192  FACTOR ( NR+1, J, K ) =RTFAC ( S,K) 

DO  19  5  X  =  1 ,  2 
DO  195  0=5,60, 5 

195  FACTORCl, J, K ) =FACTOR( 2, J,K)- ( (( FACTOR ( 2, J, K )+ FACTOR ( 3, J, 
ft  -FACTOR (2, J, K) ) 

DO  200  I<  =  1,  2 
DO  200  N=2, 9 
DO  200  J  =  5, 6  0, 5 

208cF^8i0K-!c/^/K)ss(CFACTOR(U/ J/K)+FACT0R(N+1/ J,K))/2‘  5 

DO  203  I =-1,10 

70S  7  R 1  (  I  ,  !<  )  =T  PMFR  f  I  .  K  )  /TFM1  (  !  ) 


) )  /  2  .  ) 


xi 


DO 
DO 
2  04 
2  05 
DO 
DO 
J  = 
2  0  8 
DO 
DO 
9  in 


205  K=l, 2 
2  04  I  =-1,9 

RTF  AC  (  I  ,!<)  =  (  ( TEM(  I  ,  K )  +TEM  ( I  + 1,  K  ) )  /  2  .  )*DSDRP(  1,0) 
DTFAC  ( 10,  K  )  ='i  EM  ( 10,  K  )  *DSDRP(  10,9) 

208  K=l, 2 
208  1 =- 1, 10 

FACTOR  (10,  J,K)=RTFAC(  1  ,K) 

210  K=l, 2 
210  J  =  5,  5  5,  5 

FACTOR ( 11/  J  +  5,  IO=FACTOR(  10,  J,  k  ) 


FACTOR ( 11, 5, 1)=172. 

FACTOR ( 11, 10, 1)=G43. 

FACTOR (11,  5,  2) =3  0. 

FACTOR ( 11, 10, 2)=142. 

FACTORdl,  15,  1  )  =  .  32  7 3*F ACTOR (11,  10, 1 )  +  . G 72 7 *FACTOR ( 11, 2  0, 1) 
FACTO R(  11,  15,  2  )  =  .  2 0 72 *F ACTOR (  1 1,  10,  2  )  +  .  7928*FACTOR(ll,  20,  2) 


C  THESE  ADJUSTMENTS  ARE  NECESSARY  TO  ACCOUNT  FOR 
C  RANGE  PROJECTION  OF  DEATH  BENEFIT  FACTORS 


THE 


SHORT 


DO  220  K=l, 2 
DO  220  N= 1, 1 1 
DO  220  J  =  5, 55,  5 
DO  220  M  =  1,  4 
22  0  FACTOR  (  N,  J+I !,  K  )  =M  * 


2  *  (  FACTOR  (  N,  J+  5,  K  )- FACTOR  ( [J,  J,  K  ))  +  FACTOR  (  H, 


4  J,  K ) 

DO  230  J  =  3, G 0 

2  3  0  ES C 1  ( J  )  =  ( (  (  (  YM PE  (  J  )  +  YM  RE (  J-  1 )  +  Yf  !PE  ( J-  2  ) )  /  (  3  .  /  RETRT ) )  / 

A  (  PM  I  ND(.J )  /  1 0  0 .  )  )  /  1 2  5  0 .  ) 

DO  2  35  J  =  3 , 6 0 

2  35  ESC2 ( J  )  =  ( ( ( YMPE ( J )+ YM PE ( J- 1 ) + YMPE ( J-2 ) ) / ( 3 .  / R ETRT ) )/1250.  ) 


DO  240  K=l, 2 
DO  240  J  =  1 1 , 6  0 

240  FACTOR  (11,  J,  K  )  =F  ACTOR  (  1 1,  J,  IO*ESCl(J-5) 

DO  250  K=l, 2 
DO  250  N=12, 15 
PC  250  J=5, 55 

2  50  FACTOR (  N,  J  +  5,  k  )  =F ACTOR  ( N- 1,  J,  K.) 

DO  2 C  0  J  =  1 1 , 6  0 

FACTORdO,  J-5,  1 )  =FACTOR(  11,  J,  1) 

250  FACTOR( 10, J-5,  2 ) =F ACTOR ( 11,  J,  2) 

DO  270  J=5G, 60 

FACTORdO,  J,  1)=FACTOR(10,  J,  1 )  *E3C1 ( J  ) 

2  70  FACTORdO,  J,  2)  =F ACTOR (10,  J,  2)*ESC1(J) 

WRITE (2  9, 41)  ( ( (FACTOR (N,  J,  K),  J  =  1,6  0), N  =  l, 15),K=1, 2) 

DO  310  K=l, 2 
DO  310  1=1,15 
DO  280  J=5, 9 

2  80  MMDTH (  I  ,  J ,  K  )  =  (1 .  -SURVRT(  I  ,  2,  K  )  )  *POP(  I  +  4,  J,  K )*F ACTOR (  I  ,  J,  K) 
DO  285  J  =  10, 14 

2  35  Ni-1DTH(  ! ,  J,  K  )  =  (1. -S  URVRT  (  I,  3,K))*POP(  I  +  4,  J,  K)  *F  ACTOR  (  I,  J,K) 
DO  290  J=15, 19 

2  9  0  I'll  1DTH  (  I  ,  J,  K  )  =  (1.  -SURVRT  (  I  ,  4,  K  )  )  *POP(  I  +  4,  J,  K  )  *  FACTOR  (  I ,  J,  K  ) 
DO  2  95  J  =2  0,2  4 

295  MMDTH ( I , J,K)=( 1. -3URVRT ( I , 5,K) )*POP( I +4, J, K )*F ACTOR ( I , J, K) 

DO  300  J  =  2 5, 29 

330  ill  1DTH  (l/J,K)  =  (l.  -SURVRT  (  1 , 6,  K  )  )  *POP(  ! +4,  J ,  K  )  *F  ACTOR  (  I  ,  J ,  K  ) 
DO  305  J=30, 34 

305  MMDTH ( I , J, K )  =  (1 . -SURVRT ( I,  7,K))*POP( I +4,  J, K ) *F ACTOR ( I, J,K) 
DO  310  J  =  35, G  0 

310  HI] DTH(  I ,  J,  K)  =  (  1.  -SURVRT (  1 ,  8,  K)  )*POP(  !  +4,  J,  i<)*FACTOR(  I  ,  J,  K) 
DO  315  K  =  1 , 2 
DO  315  J  =  5 , G  0 
DO  315  1=1,9 

315  DTHCS1 ( J,  K) =DTHCS 1 ( J,  K )  + MMDTH ( I , J,K) 

DO  320  K=l, 2 
DC  320  J  =  1 , 6  0 

32  0  DTHCSK  J,  K)=DTiiCSl(  J,  K)*ESC2(  J) 

DO  32  5  K  =  1,2 
DO  325  J=5, 60 

DO  325  1=10,15 

V2  5  nir'CS?  f  •! .  K  )=DTF'OS2  (D  .  K  )  +  UHnTH(  I  .  J  .  K  ) 


XIX 


no 


330  !'  =  1,2 


u  \ 

DO  330  0=1,60 

3  3  C  DTi ! Co  2  ( J, !( )  =DTUCS2 (0,  K  )  *  (  PN I  HP ( 0 ) / 100 .  ) 
DO  335  K  =  1 , 2 
DO  335  0=1,60 

33  5  DTHCS 1  (  0,  K  )  =  (  DTHCS1  ( 0,  K  )+ DTHCS 2  ( J,  K)  )  *.  5 


DO  341  0  =  1,60 

341  DTHCS  1(0,  1)=(1.-DREDC(0)  )*UTHC$1(.J,  1) 

DO  345  0=1,60 
YR(0)=19G5+0 

34  5  DT! 'CS1 ( 0, 3)=DTHCS1( J, 1 )  +  DTHCS 1 ( 0,  2) 

I F (OUT. EQ.  ’DA'  )GO  TO  348 
WRITE (2 7, 10)  F NAME 

10  FORMAT (  1  DEATH  BENEFIT  COSTS  UNDER  PLAN  \A5, 


($  000  '  'S) 5 ) 


WRI TE(27, 13) 

WRITE (2 7, 14) 

DO  347  0  =  5,  60 

347  WRITEC27,  17)  YR(0  ),  (DTHCSKO,  K  ),  K  =  l,  3) 

00  TO  999 

34  8  WRITE(27,  999  )  ( DTHCS 1 ( 0, 3 ) , J  =  5, 6 0  ) 

999  FORMAT (5(3 PF 14.0)) 

DO  1208  K=l, 2 
DO  1208  l=-l,10 
0=00(11“ I  ) 

1208  FACTOR ( 10, 0, K ) =RTF AC ( !, K) 

DO  1210  K=l, 2 
DO  1210  0=5, 55, 5 

1210  FACTOR ( 11, 0+5, K)=F ACTOR (10, 0, K) 

FACTORQO,  10,  1)=241. 

FACTORdO,  10,  2)=95. 

FACTOR ( 11, 10, 1)=410. 

FACTOR ( 11, 10, 2 ) =8  5 . 

FACTOR(ll, 15, 1)=. 25*FACTOR(ll, 10, 1)+. 75 *F ACTOR (11, 20, 1) 

FACTOR ( 11,15,2)=, 35*FACTOR(ll, 10, 2 )+. 65+FACTORC 11, 20, 2) 

DO  1215  K  =  l,  2 
DO  1215  N  =  1 0 , 11 
DO  1215  0=5,9 

1215  FACTOR ( N, 0,K)=RFAC(N-9,0- 4, K) 

C  THESE  ADUUSTHEMTS  ARE  NECESSARY  TO  ACCOUNT  FOR  THE  SHORT 
C  RANGE  PROOECTIOM  OF  RETIREMENT  FACTORS 
DO  1220  K=l, 2 
DO  12  2  0  M  =  1 0 , 11 
DO  1220  0=10, 55, 5 
DO  1220  M= 1, 4 

12  2  0  FACTOR (N,  0+1 1,  K  )  =M* .  2  *(  FACTOR ( fi,  0  +  5,  K )- FACTOR ( M,  0,  K  )  )  +  FACTOR  (  A, 
A  0,10 
DO  1240  K=l, 2 
DO  1240  0=11,60 

1240  FACTOR (11, 0, K )=FACTOR( 11, 0, K ) *ESC1 (0-5 ) 

DO  1250  ;<  =  1,2 
DO  1250  N= 12, 15 
DO  1250  0=5, 55 

12  5  0  FACTORO!,  0  +  5,  K)  =F ACTOR  (11-1,  0,  K) 

DO  1260  K= 1, 2 
DO  1260  0=11,60 

12  6  0  FACTORdO,  0,  K)=F ACTOR (10,  0, K)*E$C1(0) 

I F(ERNTST. EQ. 'NO5 )GO  TO  357 
DO  355  0=11,60 

FACTORdO,  0, 1  )  =  .  5*F ACTOR (10,0,  1) 

35  5  FACTORS  10, 0,2)  =  . 75 *F ACTOR (10, 0, 2  ) 

C  THE  .5  AMD  .75  IN  THE  PREVIOUS  STATEMENTS  ALLOW  FOR  THE  EARNINGS 
C  TEST  BETWEEN  THE  ACES  OF  65-69,  AMD  BY  OMITTING  THIS 
C  DO-LOOP,  THE  EARNINGS  TEST  IS  NEGATED 
357  DO  365  K=l,2 
DO  360  M  =  1 0 , 15 
DC  36  0  0  =  1,  60 

36  0  FACTOR ( N,0,K)=F ACTOR ( N,  0,  K ) *PO P( N+ 4,  0, K ) * ( PN I ND ( 0 ) / 10 0 . ) 

C  CAUTI ON****MATRI X  FACTOR  IS  BEING  PARTIALLY  OVERWRITTEN 

DO  365  0=1,60 
DO  365  1=10,15 


xiii 


55  5  RTCSK  J,  K)=RTCST(  J,  K)  +  FACTOR(  I  ,  J,K) 

00  370  J=l/60 

370  RTCSK  3)=RTCST( J,  D+RTCSTC  J,  2  ) 

00  3  75  ,0  =  1,  3 
00  375  J  =  l,10 

3  75  RTC3T ( J , K )  = .  9  3  052  *RTCST( J, K ) 

C  TO;  IS  IS  AM  ADJUSTMENT  FOR  THE  SHORT  TERM  FOUND 
I  F  (  OUT.  EC;.  ’DA5  )G0  TO  381 
1 « R I  T  E  (  2  8  ,  12  )  FRAME 

12  FORMAT ('  RETIREMENT  BENEFIT  COSTS  UNDER  PLAN 
V; R  I  TE(28,  13) 

13  FORMAT ( 5  YEAR  MALES 

&  TOTAL5) 


ON  SHEET  F 100-1/2 


,  A  5  ,  5  ($000 ? 9S) 5 ) 
FEMALES 


WRI TEC  2 8,  14) 

14  FORMAT ( 5  ----  -----  _____ 

-  - - 5  ) 

DC  330  J  =  5, 6  0 

38  0  WR I  TEC 2 8, 17 )  YR( J), (RTCST(J,K),K=1,3) 

GO  TO  993 

381  WR I TE ( 2  3,  99  3  )  ( R7  C  3  T ( J , 3),J  =  5/  G0) 

993  FORMAT (5C3PF16. 0) ) 

17  FORMAT (4X, ! 4, 8X,  F12.  1,  5X,  F12.  1,  5X,  F13.  1) 

41  F  0  Ri  :AT  (6(F10.0)) 

T  =  C  LOCK ( 0, 0 ) *6  0 . 

TYPE  421, F I LE ( ! K+10), F ! LE( I K+15),F I LE( I K+2  0 ), T 


4  2 


n 

4. 


& 


FORMAT ( //, 5  END  OF  RUM ’,//,  5  OUTPUT  FILES  ARE: 
s)//,8  EXECUTION  TIME  =  ®,F8.3,8  SECONDS®,///) 


3  ( A 


5, 


DAT 


42  F 0 R1 1  AT (GCF1C.4,  IX)) 

STOP 

END 


SUE  ROUTINE  MIN 
C 


C  THIS  SUBROUTINE  CALCULATES 
C  TO  FIND  TOTAL  PENSIONABLE 


THE  EARNINGS 
ear;  II  MGS 


c 


DROPPED  OUT 


ui  ii 


■SON 


A 


/IODATA/1 MDI V(- 12/11, 47, 2 ), EXPOS ( -12/ 11), DROrC - 12/ 11, 2) 
NR, DRPRT 


/ 


REAL  DUPC-12/11, 4  7,  2) 

DO  195  K=l, 2 
DO  19  5  J  =  l,  4  7 
DO  195  I =-12, 11 
DROP( I , K ) =0 . 

195  DUP(  I,  J,IO  =  l  NDI  V(l,  J,K) 

DO  230  K= 1, 2 

I F(K. EQ. 2. AND. DRPRT.  LE.  . 25) GO  TO  230 
C  THIS  CONTROL  IS  USED  TO  DROP  OUT  EARRINGS  FOR  FEMALES 
C  DROP  OUT  RATE  EXCEEDS  25£ 

DO  230  I =NR- 10, NR+ 1 


I  F  THE 


HB  =  EXPOS ( I  I  ) /DRPRT 
I F(NR. EQ.9. AMD. MB.  LT. 10)00  TO  2  30 
LL= ( I F I X( EXPOS ( I !)))+! 

DO  220  L= 1, LL 
JCNT=1 

DO  210  J  =  2, MB 
SMALL=DUP( I  I , JCNT,  K ) 

I F ( DU P ( I  I , J, K ) . LT . SMALL ) GO  TO  200 

^  .»  f  -v  r>  i  r\ 

bu  iu  a u 
200  JCNT =J 

SMALL=DUP( I  I, J,K) 

210  CONTINUE 

0UF(  I  I  ,  JCNT,  K)=DUP( I  ! ,  JCNT,  K )  +  5QQQ. 

2  2  0  DRO  PCI  I  ,  K  )=DR0P(  I  !  ,  !<  )  +SMA  L  L 

DRC  P(  1  I  ,  K )  =DROP(  |  l,K)— ((!.— (EX  POS  (  I  !  )-(  !  FI  X(  EXPOS  (  I  I  )  ))  )  )*S!'A1  L) 
230  CONTINUE 
RETURN 

rfin 
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VERSION  AS  OF  12:00  AUGUST  11,10  72 

PROGRAM! '  E  COfiT.  5.  TUI  S  IS  THE  FIFTH  PROOF  AMI  if  IN  THE  OPP  PRC'CPwM  If  i  ES 
COf T . 5  CALCULATES  THE  CONTR I  BUT  I  OHS  TO  THE  C AHA PA  PENS! OH  PL  V  FRO! 
1060  TO  2025  UNDER  VARIOUS  USER  SPECIFIED  OPT  I  OHS . THESE  OPTICUS 
I  UCL'JDE  REASONABLE  STABILITY  AMD  MODERATE  INFLATION  UNDER  THE  OUR- 
C  RENT  AMD  PROPOSED  SCHEMES. 

C  PROGRAMME  WRITTEN  BY  T. LETT  AMD  C. JACOBS  FOR  THE  TAX AT  I  01!  AMD 
C  FISCAL  POLICY  BRANCH  MARCH  1972. 
r 


r 

p 

r 

•s 

C 

C 

r 

■  j 

n 

Vy 

c 

r* 

c 

r 

C 

p 


DOUBLE  PRECISION  POP(  19,  CO,  2  ),  TEi  !P(  11,  60,  2  ) 

PEAL  YM PE ( 6 0 ) , YBE ( G  0 ) , MUAE ( 1 1, G  0, 2 ) , ETAD J ( 6 0  ) , 

+  PART ( 1 1,  10),  AD J ( 6  0 ) ,  F I LE(15),T(11, 7),  COMPTE(60) 

IMTFCER  YEARC60) 

Y'iPE  AMD  YBE  ARE  SELF  EXPLANATORY.  PO  P  CONTAINS  THE  DATA  CE!  !- 


RAT 


;Y  PROGRAMME  POP. 1. USERS  SHOULD  BE  CAUTIONED  TUA 


ARM:  AY 


A  r* 
t  \  \J 


IS  OVERWRITTEN  SEVERAL  TIMES  DURING  CONTRIBUTION  CALCULATIONS 
IS  THE  TEMP  ARRAY  TO  CONSERVE  CORE.  THE  TEMP  ARRAY  IS  FOR  TEMPORARY 
COMPUTATIONAL  USAGE  ONLY. THE  MMAE  ARRAY  IS  THE  OUTPUT  FROM  PROG¬ 
RAMME  MKAE. 3. THE  ARRAY  PART  CONTAINS  TEN  SETS  OF  ELEVEN  EACH  OF 
PARTICIPATION  RATES  FOR  THE  LABOUR  FORCE. TWO  SETS  ARE  FOR  MALES 
AND  THE  REMAINING  EIGHT  ARE  FOR  FEMALES. THE  VECTOR  ADJ  CONTAINS 
ADJUSTMENT  FACT0RSO10T  THE  SAME  AS  IN  MMAE. 3)  WHICH  ARE  FOUND  OH 
WORKSHEET  E108-5  .THE  VECTOR  FILE  CONTAINS  THE  VARIOUS  PROGRAMME  OPTION 
CORES.  TXFPB  IS  A  TAXATION  AND  FISCAL  POLICY  OPTION  THAT  IS  SPECIF¬ 
IED  BEFOREHAND  IN  OTHER  PROGRAMMES . THE  ARRAY  T  CONTAINS  THE  NEC¬ 
ESSARY  COMPONENTS  FOR  PRINTING  OUT  TITLES. THE  VECTOR  FIAT J  CONTAINS 
THE  EARNINGS  TEST  ADJUSTMENT  FACTORS. THESE  ARE  FOUND  ON 
WORKS FHEET  E 10 8-1. 


DATA 

+ 

+ 

+ 

+ 


DATA  ETADJ/ 7*1. , .933, .867, . 8, .68, 
PART/.  6  5,  3*1.  ,  3*.  93,  2*.  87, .  78, .  53, 
.  79,  .  54,  ,  46,  . 66,  .  44,  6*.  36, .  2  5, .  13, 


56, . 44,  .  32,  46 * .  2/ 

68,  3*1.  ,  3*.  94,  2*.  88, 

5,  .  6  9,  .  5,  6*.  4  2,  . 29, .  13, 


55. 


.  73,  .  57,  6*.  4  8,  .  34,  .  14,  . 58,  .  75, .  58,6*.  49, .  35, .  14,  .  46,  .  66,  .  44, 


6 * .  36,  .  25,  .  13,  . 

.  33,  .  14,  .  55, .  73 
DATA  ADJ/ 

+  5*. 1, . 096, . 092, 

DATA ( ( T ( I , J ) , J  =  1, 
+  'REASO',  5 

R  i  r—  n 


49,  .  6  8,  .  5,  6*.  41, .  29, .  13, .  53, .  71, .  56, 6*.  4  7 
,  .  57,  6*.  48, .  34, .  14/ 


"MO PER  1 , 
’REASO8, 

8  MODER 1 , 

9  .  .  _ _  n 


+ 

+ 


’USER  , 
’YBE 

'YBE  ’, 
’YEAR  ', 

’MALES', 

•  t 

/ 


* _ 

'TOTAL'/5 


.  08  3, 
7), 1=1 
NABLE ' 
’ATE  I 
’NABLE 
’ATE  I 
8  S  PEC  I 
8  EQUAL 
8  PROPO 
'  CONTR 

’FEMAL 

! _ 

CO  NT ' 


DATA  F I LE/ ' RSCUR ' ,  ’Ml  CUR',  ’RSPRO’,  'Ml  PRO',  ’TXFPB 
+  ,  1 11MRS  P ' ,  ’MMM I  P»,  1 MMTF  P* ,  'RSCCIi',  'MICCN'  ’nr 


IE  TESTED:  ',$) 


DATA  [1/1/ 

102  TYPE  100 

100  F0P.MATC  TYPE  IN  PLAN  TO 
ACCEPT 2, F  NAM  E 

2  FORMAT (A5) 

DO  3  I  K  =  l,  5 

3  I F ( F NAME . EQ. F I LE ( I K ) )  CO  TO  4 
TYPE103, FRAME 

103  FORMAT ( IX, A5, ' ?,  TRY  AGAIN'/) 

GO  TO  102 

C 

C  DATA  FILE  OPSHN  CONTAINS  THE  OPTIONS  THAT 
C  FLAT  RATE  OPTION  FOR  THE  YBE. NOTE  THAT  IT 
°  THIS  VALUE  AT  600.  IF  THE  USER  IS  TESTING 


PC 


M  8 


IRSC 1 , ’MMM I C 
’Ml  PCI!’,  ’TFPCr”  / 


CAN  TES I  ED . X1YCE  IS  THE 


O 

o 


A 


NECESSARY 
PR° 


TO  LEAVE 

o' PORT  I  ONAL  VALUE  FOP 


[ 


XV 


C  FOR  THF  YBE.KX1  IS  A  SI.  ITCH  WHICH  ALLOWS  THE  USER  TO  USE  THE  FLAT 
C  RATE  WITH  ANY  OF  THE  CURRENT  OR  PROPOSED  SCHEMES. THE  USER  SHOULD 
C  R  E c  E  R  TO  STATEMENT  NO.  999  TO  SEE  THE  MECHANICS  OF  THIS  SWITCH. 

C  NOTR  THAT  THE  SWITCH  MUST  CONFORM  WITH  THE  STRUCTURE 
C  OF  THE  VECTOR  FILE.X2YBE  IS  THE  OPTION  WHICH  ALLOWS  THE  YE E  TO 
C  EXPRESSED  AS  A  PROPORTION  OF  THE  YMPE.IF  THE  FLAT  RATE  OPTION  IS 
C  BFING  USED  X2YDE  MUST  DE  . 12.CONRTE  Is  THE  TOTAL  CONTRIBUTION 
C  RATE (EMPLOYER  PLUS  EMPLOYEE)  AND  MUST  EE  EXPRESSED  AS  A  DECIMAL, 

C  IE  .036. 

C 

4  CALL  I  FI LE(20,FI LECI K+5 ) ) 

CALL  I  FI LE(21, FNAME) 

CALL  IF! LE ( 22, 'ONE5 ) 

CALL  I  FI LE ( 2  3,  ’OPSMM' ) 

READ  (  2  0,  5  )  (  (  ( 1 1MAE  (  I  ,  J,  K  ) ,  J  =1,  0  0  ) ,  I  =1,  11 ),  K  =  l,  2  ) 

READ ( 2  1,  6  )  ( YM PE (  I  ),  1=1,60) 

READ  (22,6)(((POP(I,J,K),J  =  1,60),I=1,  19),K  =  1,2) 

READ (23,5)  X1YBE, KX1, X2YBE 
READ (2 3, 6)(CONRTE( J), J=l, 60) 

5  FORMAT (5G) 

6  FORMAT ( 10G ) 

7  FORMAT ( 9G ) 

999  I F ( F NAME. EQ.FI LE(KX1).0R. FNAME. EO. F I LE ( KX1+ 1 )  )  00  TO  91 
DO  8  1=1,60 

8  YBE ( I )=X1YBE 
GO  TO  10 

91  DC  9  I =1, 60 

9  Y3E( I )  =  ( I  FI X(X2YBE*YMPE( I  )+l)/100)*100 
C 

C  THIS  SECTION  FIRST  CALCULATES  THE  PARTICIPATING  POPULATION  AND 
C  THEN  COPIES  IT  INTO  TEMP  FOR  LATER  USE. THE  PART  I C I  PAT  I  NO  PQPUL- 
C  AT  I  ON  FIGURES  STORED  IN  POP  ARE  SUBSEQUENTLY  MULTIPLIED  CY 
C  MODIFIED  MODIFIED  AVERAGE  EARNINGS  TO  OBTAIN  ACE  GROUPED  EARNINGS 
C  FOR  THE  WORKING  POPULATION. 

C 

GO  TO  (51, 52, 51, 52, 53), I K 

51  I M I =  4 
GO  TO  56 

52  I M I =0 
GO  TO  56 

53  TYPE54 

54  FORMAT ( IX, ' ECONOMIC  ASSUMPTI ONS-MI /RS?',$  ) 

ACC E  FT 5  5, A NS 

55  FORMAT (A2) 

I FCAHS. EQ.MI )  GO  TO  52 
GO  TO  51 

56  J  J  =  0 

10  DO  101  K=l, 2 
DO  11  1=1,11 
DO  11  J=1,G0 
N  =  1 

I F ( K . EQ. 1. AND. J. GE. 20)  N=2 
I F(K. EQ. 2. AND. J.GE. 1)  N=3 
I F(K. EQ. 2. AND. J.GE. 10)  M=4 
I F(K. EQ.2.AND. J.GE. 20)  N=5 
I F(K. EQ. 2. AND. J.GE. 40)  N=6 
PO  P ( I / J/ K )  =  POP( I +3, J,K)*PART( I, JJ  +  N) 

TEM  P(  I  ,  J ,  K )  =  PO  P  ( I ,  J ,  K  ) 

11  POP( I , J , K ) =  PO  P ( I, J,K)*MMAE( I, J,K) 

101  J  J=J  J  +  I  IT  I 
C 

C  THE  FIRST  AGE  GROUP  IS  SCALED  BY  .39  BEFORE  THE  YEAR 
C  BY  .4  AFTER  THAT  DATE. THIS  OPERATION  COMPENSATES  FOR 
C  THIS  AGE  GROUP  CONTAINS  INDIVIDUALS  FROM  15  TO  19  IN 
C  CONTRIBUTIONS  TO  THE  CPP  DO  NOT  START  UNTIL  AGE  18. 

rv 
V-/ 

DO  14  K=l, 2 
DO  14  J=l, 60 
I F( J.GE. 34 )  GO  TO  120 
POP(l, J,K)=POP(l, J,K)*. 39 


2000  AMD 
THE  FACT  THAT 
ACE  WHILE 
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GC  TO  14 

12  0  POP(  1,  0,K)  =  P0P(1,J,K)*.  4 

14  continue 

c 

0  AT  T! ' !  S  POINT  TUG  GROUPED  EARNINGS  ARE  TOTALLED  BY  YEAR  AND 
C  MULTIPLIED  BY  AM  INDEX  TO  REFLECT  THE  GROWTH  IN  THE  YMPE  THRU 
C  TIME. THE  TEMP  ARRAY  IS  ALSO  TOTALLED. THE  CONSTANT  5000  IS  THE  BASE 
C  YEAR (1066)  YMPE. 

C 

DO  15  K  =  1 , 2 
DO  15  J  =  l, 60 

PC PC  11, 0,K)=POP( 11/  J,  K ) *ETAD0 ( J ) 

DO  15  I =2  11 

PO  PC  1,  0,  K )  =PO  PC  1,  J,  K  )+  (  PO  PC  I ,  0,  K )  *  ( Yf  1  PE  ( J  )  /  5  00  0  )  ) 

1 5  TEM PC  1/  J,  I<  )  =TEMP ( 1,  J,  K )  +  TEMPC  I ,  0,  K ) 

C 

0  IN  THE  NEXT  SECTION  1  IS  ADDED  TO  THE  ADJUSTMENT  FACTOR  SO  THAT 
C  IT  SCALES  THE  DATA  OVER  1002. THE  YBE  IS  THEN  MULTIPLIED  PY  THE 
C  PARTI  Cl PATI MG  POPULATION  AND  THEN  IS  SUBTRACTED  FROM  THE  TOTAL 
C  EARNINGS  TO  ELIMINATE  THE  TOTAL  EXEMPTIONS  FROM  EARNINGS. 

C  TOTAL  EARNINGS  ARE  THEN  ADJUSTED  AND  MULTI  PL ! ED  BY  THE  CONTRC- 
C  UTIOM  RATE  TO  GET  TOTAL  CONTRIBUTIONS. 


r 


DO  60  0=1,60 
60  AD J ( J )=AD J ( J )+ 1. 

DO  16  K  =  l,2 
DO  1C  0=1,60 

16  POPC 1,  J,  K )  =  (  PO  PC  1,  J,  K  )-  (  YDE  ( J  )  *TEMP(  1,  J,  l< )  ) )  *AD  J  (  J )  * C 0 N P T E  ( J  ) 
DO  13  K=l, 2 
DO  13  J  =  l, 6 0 
YEAP.C  J  )  =  196  5+ J 


TEMPC1, J,K)=Q. 


13 
C 

C  CONTRIBUTIONS  FOR  MALES  AMD  FEMALES  ARE 
C  FOR  PRINTING  PURPOSES. THE  SECOND  D I  MENS  I C 


TOTALLED  INTO  TEMP 
OF  TEMP  CONTAINS 


r 


THE 


GROWTH  RATE 


nc 

J  I 


TOTAL  CONTR ! BUT  I  CMS 


DO  IS  K=l, 2 
DO  18  J  =  l,  6  0 

18  TEfiPC  1,  0,1)  =TEHP(  1,  0,  l)  +  POP(  1,  0,  K) 

DO  ID  J  =  l,  6  0 
L  =  0+  1 

IFCL.EQ.61)  CO  TO  19 

TEMP(1,L,  2)=((TEMP(1,  L,  1 ) -TEMPC 1,  0,  1 ) ) /TEM P ( 1,  0,  1 ) )  *100 . 
ID  CONTINUE 
TYPE 32 

32  FORM, ATC1X,  'OUTPUT?  ( TAB LE/ DATA ):',$) 

ACCEPT50, ANS 

I F  CANS . EQ .  ' DA '  )  GO  TO  3  3 


-n  rn 

Place 


I  F 


IT  lo  LEFT  AS  A  DECIMAL  FRACTI ON. IN! S  OPERATION 


NECESSARY 


SO 


!  i  A  ' 


THE  LO  G,  I  C  A  L  COf  I  PA ! : !  3  0  N : 


LI  WO iu\, 


r> 


X2  YC  E  =  X2  YB E  *  1 0  0 . 

I FCX1YBE. EQ. 600. )  10=7 
I FCX2YBE. EQ. 12. )  !J=6 

!  FCX1YBE.  EC..  6  00.  .AND.KX1.  EC.  1 .  AMD.  X2YBE.  FO. 


GO  TO  C24, 


it, 

—  ■  / 


+  2  5,  2  5,  26  ),  I  K 
I  F( I  0-6  )22,  22,  23 
22  XYBE=X1YBE 
GO  TO  28 

2  3  X  Y  B  E  =  X  2  Y  B  E  /  1 1)  C . 
CO  TO  23 

24  X Y B E  =  X 2 Y B E / 1 0 0 . 

I  0  =  7 

00  TO  28 

25  XYB E  =  X1YB E 


r,-v;  /•' 
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1  u=y 

GO  TO  28 
2G  XYC  E  =  X1Y .3  E 
I  J  =  5 

TYPE2 7,  X YD E 

27  FORI  1AT  (  ’  ***  WARNING  YBE  HAG  BE  EM  SET  TO 


F6. 2,  ' ***  5  ) 


28  CALL  OF  I L E ( 2  4,  ’COMT'  ) 

CALL  TIME (XT  I  HE) 

CALL  TDATECLD, LM, LY) 

WR ! TE ( 2  4 , 2 1 )  LD, LM, L Y/ XT  I  ME 

21  FORMAT ( ' 1 ' , 50X,  ' DATE  OF  RUM  5 IX, 2 ( I  2,  ' / *  ) ,  1 2, 2 X,  'TIME  'A5) 

WRITE (24, 17 ) ( T( I K, I  ),  I =1, 7), (T( I J, I  ),  I =1, 6 ), XYI2E, (T(8,  I  ), 

+  1=1,4),  ( T  (  8 ,  I  ),  I  =2,G),T(10,4),  ( T  (  9 ,  I  ),  I  =1,  3  ) ,  T  (  8 ,  5  ) ,  T  (  1 0 ,  1), 

+  T(10,  1),T(10,  1),T(10,  2  ) ,  T ( 1 0 ,  1 ),  T(  10,  1),  T(10,  2),T(  10,  1),T(10,  1) 
17  FORMAT ( '  \ 5  0X7A5// '0 », 50X6 A5, F7.  2, ///  9  0  5 , 4 OX, A5, 3X, 

+  2(3A5,2X),4XA5,6X, 2 A 5/'  ', 52XA5, 11X2A5, 21XA5/ 1  ?,40X, 

+  A 5, 3X2 (3A5, 1X),GXA5, 8XA5) 

DO  29  J  =  l, 6 0 

WR  I  TEC  24,  DCONRTEC  J),  YEARC  J),  POPC1,  J,  1),  PO  PC  1,  J,  2),  TEf '.PCI,  J,  1) 

+  ,  TEMPC 1,  J,  2  ) 

29  CONTINUE 

1  FORMATC'O*,  33X,  2  PF  3  .  1,  ’  %  *  3  X  !  4,  3X3PF13.  0,  2  (4X3PC13.  0),  5XOPE5.  2) 

50  FORMAT ( A2  ) 

3  3  ! F  CANS . EQ.  1 TA ' )  STOP 

CALL  OF ! LE ( 2 5, F I LEC I K+10)  ) 

WR  I  TE  ( 2 5,  31 )  ( TEMPC  1,  J,  1 ),  J  =  X,  6  0 ) 

31  FORMAT ('  ', 5C3PF14. 0, IX)) 

TYPE34, F I LEC I K+10) 

34  FORMAT  ( IX,  'OUTPUT  FILE  IS  ’,A5,  ’.DAT’) 

STOP 
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C  VERSION  AS  OF  AUGUST  11,107? 

C  PROGRAMME  WIDOW.  6 

C  WRITTEN  BY  HARRY  NEWTON.  APRIL  1072. 

cor  if  ION/3  LOCK1/  Pl/EWES  (53,10),  MAX  PEI!  ( 0  6  ) 
COMMOi!/B  L0CK2 /COEF F  (  58,  1C  ) ,  STOTAL  ( 10  ) 


REV L  MAXPFM 

DIM ENS  I  ON  SURVI  V (  7,  16,2),  RMARRY (  5,  10,  2) 

D I  MENS  ION  POPC19, 6  0),  SURVM(8,  15 ),  FAC6  8 ( 10 ) 

DIM ENS  I  0  N  YM  PE  ( 6  0  ) ,  PM  I  NP  ( 6  0  ) ,  ES C 1  (  5  8  ) ,  PTHF  C  ( 1 5 ,  6 0  ) ,  F  FAC  (  5  3  ) 
D I  f  'ENS I  ON  F NAME ( 5 ) , FOUT ( 5 ) , P NAME ( 5  ) 

DIMENSION  LIMITK4),  L  I  M  I  T2  (7),  OAS  (  3  ),  ERPCTU(3),  EP.PCTO(3) 

D I  MENS  I  ON  PR  PMRD  ( 1 5,  5 ) ,  AGED  I S ( 15,  6 ) ,  NHAGR  P (15), MWAGR P ( 1 5  ) 

0  I  MENS  ION  ESCDCF ( 15 ) , D EATHS (15),ZERO(944) 

DIMENSION  ERBU6  5(58),  ERB06 5 (  58  ) ,  F RRU6 5  (  58  ) 

DATA  ERBU.6  5,  ERB065,  FRBU65/174*0./,  IKOUNT/5/ 


DATA  FAC68/600. , 793. , 881. , 86 4. ,2*855. ,832., 735. ,600., 405./ 

DATA  F FAC/ 5*0. , 23. , 32. ,41. ,64. , 88. , 111. , 135. , 153. , 181. , 2C4. , 228. , 

*  251. ,41*0. / 

DATA  OAG/300. ,960. , 0. /, ERPCTU/. 375, . 75, 0. /, ERPCTO/. 6, . 75, 0. / 

DATA  FRAME  /  8  RSCUR  8 ,  'Mil  CUP1,  ’RSPRO8,  'Ml  PRO',  8  TXF  PB  9  / 

DATA  DNAME/  8  DHRSC  8 ,  8  DHf  1 !  C',  '  DHRSP  8 ,  8  OHM  I  P!,  8  DI!TF  P '  / 

DATA  FOUT/ 8  RSCWD  8 ,  ’Mi CWD ',  ’RSPWD ’,  WlIPWD8,  8  TF  PWD  8 / 

DATA  NHAGRP/3,  4,4,5,  5, 9*6,  5/ 

DATA  N WAG R P/  1,  1,  2,  2,  3,  3,  4,  5,  6,  7,  8,  9,  10,  11,  12/ 

DATA  LI  Ml Tl/ 1971,  19  81,  1991,  2  001/ 

DATA  LI  Ml T2/ 1970,  19  75,  19  8  0,  19  8  5,  109  0,  190  5,  2  0  00/ 

DATA  ( ( PR PMRD ( I , J ), J  =  i, 5 ),  I =1,  15 ) /5 * .  3,  5 * .  7,  5*.  82,  5* .  86,  9 * .  8  8,  . 89, 

1  2*.  87,  3*.  88,  .  84,  2*.  85,  2*.  86,  .  8  2,  .  8  3,  .  8  4,  2*.  8  5, .  8, .  81, .  8  2,  .  8  3, 

2  .84, . 74, . 76, . 78, . 8, . 81, .67, . 7, . 72, . 74, . 76, . 55, . 58, . 6, . 62, .54, . 43 

3  ,  .  46,  .  4  8,  .  5,  .  52,  .  31,  .  34,  .  36,  .  38,  .  4/ 

DATA  ( ( AGED  IS(  I,J),J  =  1,6),  I  =1,  1 5  )  /  .  2  2,  .  6 

2  2*0. ,  .  09, .  39, .  4  3, .  09, 2*0. , .  02, .  1, .  38, . 

3  .  08,  0. ,  .  01,  .  04,  .  16,  .  38,  .  34,  .  07,  .  0  2,  .  05 

4  .  18,  .  37,  .  3,  .  06,  .  03,  .  07,  .  19,  .  35,  .  29,  .  07 

5  .  06,  .  07,  .  2,  .  34,  .  2  7,  .  06,  .  07,  .  07,  .  21,  .  3  5 

6  .  22,  .  03,  .  1,  .  1,  .  26,  .  35,  .  17,  .  02,  .  13,  .  13,  .  3,  .  32,  .  12,  0.  / 

EQUIVALENCE  ( CO EF F ( 1, 1 ) , Z ERO ( 1 ) ) 

CALL  CLOCK1 

34  TYPE  2001 

2001  FORMAT ( //, 8  TYPE  IN  PLAN  TO  BE  TESTED  -  ',$) 

ACCEPT  2002, PLAN 

2002  FORMAT (A5 ) 


.  09, 

3*0. 

,  .  03 

,  .4, 

•  49, 

.  .  G 

,  .  08 

,  o.. 

•  03, 

.  13, 

•  4 ,  , 

.  36 

17,. 

38,  . 

32,  . 

06,  . 

03,  , 

.  06 

05,  . 

07,  . 

19,  . 

34,  , 

28,  , 

.  07 

25,  . 

05,  . 

08,  . 

08,  . 

23,  , 

.  36 

,.32 

,  .  12 

,0./ 

DO  40  J=l, 5 

I F ( PLAN. EQ. FRAME ( J ) )  GO  TO  41 
40  CONTINUE 


TYPE  2003, PLAN 

2003  FORMAT ( //, 8  ***ERROR***  NO  PLAN  CALLED  8,A5) 
GO  TO  34 
41  KF! LE=  J 


CALL  I F! LE ( 2 8, PLAN) 

C  READ  IN  MAXIMUM  PENSIONABLE  EARNINGS  FOR  EACH  YEAR ( YMPE ) . 

READ (28, 2004)  ( YMPE ( J ), J=l, 6 0 ) 

GO  TO  (4  3,  44, 43,44, 45),  KF!  LE 
45  TYPE  2005 

2005  FORMAT ( 8  TYPE  IN  GROWTH  RATE  FOR  AVERAGE  EARNINGS  AFTER  19758, 
*  / , 3X,  ’  ( I . E. ,  FOR  5.5%,  TYPE  1.  055  )  =  =  =  8  ,i) 

ACCEPT  2004, RATE 
CALL  I F I LE ( 2  7,  ’ TF  PNX  8 ) 

GO  TO  46 

43  CALL  I F I LE ( 2  7,  'RSPNX8 ) 


RATE=1. 035 
GO  TO  46 

44  CALL  I  FI  LE  (  2  7,  8  II  PNX  '  ) 

RATE=1. 055 

46  READ(27,  2004)  ( PM  I ND ( J ) , J  =  1, 6 0 ) 

G  CALCULATE  MAXIMUM  PENSION  FOR  EACH  YEAR  (MAX PEN ) . 

DO  42  J=l, 58 

42  MAX PEN ( J )  =  ( YMPE ( J )  + YMPE ( J+ 1 )  + YMPE ( J  +  2  ) ) *10 0.  / (  3  2 .  *PN I ND ( U  +  2 ) ) 
DO  39  J  =  5 9 , 9  6 

39  M  A  X  P  E I K  J  )  =  I  i  A  X  P  E  N  ( J  - 1 )  *  R  A  T  E 


xix 


TYPE  10 OG 

1006  FORMAT  (  ’  TYPE  IN  RETIREMENT  PENSION  RATE  (0-1)  --  1 , :)  ) 

ACCEPT  2004,  RETRT 

C  CALCULATE  ESCALATION  COEFFICIENTS. 

HO  47  J  =  l,  58 

4  7  E$  C 1 ( J  ) =R ETRT * ( YM PE ( J )  +  YM PE ( J+ 1 )  +  YM PE ( U  +  2 ) ) / ( PM  I MD ( J  +  2 ) *3 7 . 5 ) 

CALL  I F I LE(29, ’ONE’ ) 

READ  (29,  2  0  04  )  (  (  PO  P  (  l,J),J  =  l,60),  I  =1,  19) 

CALL  I F I LE(29, ’SURVM’ ) 

READ(29, 2010)  ( ( SURVM( ! , J ), ! =1, 8), J  =  l, 15) 

2010  FORMAT ( 80 ) 

CALL  I  FI  LE(  29,  DMAME (  KF  I  LE)) 

READ  (29,  2  0  08  )  (  (  DTI SFC  ( K,  L),  L  =  l,  6  0  ),  K  =  l,  15  ) 

2008  FORMAT ( 6G ) 

C  MALE  DEATH  BENEFIT  FACTORS  FOR  19C8-9  ARE  NOT  COMPUTER  IN  THE 

C  PROGRAM  ' RETBN. 4 ’ .  HENCE,  THE  VALUES  SUPPLIED  BY  THE  DEPT.  OF 

C  INSURANCE,  OTTAWA  ARE  INSERTED. 

DO  51  K=l, 10 
DTHFC ( K, 3 ) =FAC68 ( K ) 

51  DTHFC (K, 4)=FAC68(K)+(DTHFC(K, 5)-FAC68(K)  )/2. 

C 

C  IN  THIS  SECTION,  THE  FEMALE  DEATH  BENEFIT  FACTORS  COMPUTED  IN  THE 
C  PROGRAM  ’RETBN. 4’  ARE  ADJUSTED  IN  THE  SHORT  TERN  FOR  THE  PURPOSE  OF 

C  COMPUTING  REDUCTION  FACTORS  AT  A  LATER  STAGE  IN  THIS  PROGRAM. 

C  SINCE  THE  FEMALE  DEATH  BENEFIT  FACTORS  ARE  ALMOST  IDENTICAL  IN  THE 
C  SHORT  TERM  FOR  BOTH  REASONABLE  STABILITY  AND  MODERATE  INFLATION, 

C  THE  PROGRAM  DOES  NOT  DISTINGUISH  BETWEEN  THESE  TWO  TYPES  OF  SCHEMES 
C  WHEN  ADJUSTING  THE  FACTORS. 

DO  48  K  =  1 , 11 

48  READC29, 2008)  ( ZERO ( L ) , L=l, 19 ) , ( FFAC ( L ) , L=18, 58 ) 

DO  49  K=8, 17 

49  F  FAC ( K ) =F  FAC ( K ) *  ESC 1 ( K- 7 ) 

DO  50  K=18, 58 

50  FFAC(K)=FFAC(K)*ESCl(K-7)/ESCl(K-5) 

CALL  I  F  I  LE(  2  9,  9  REMAP. 1  ) 

READ (2 9,  2004)  ( ( ( RMARRY ( K,  L,  M ), L  =  l, 10 ) , K  =  l, 5 ) , M  =  l, 2 ) 

2004  FORMAT ( 10G ) 

CALL  I F I LE ( 29, 5  SURVP ' ) 

READ (29,  1002  )  ( ( ( SURV ! V(K, L,  M ), L  =  l, 16 ), K  =  l, 7),M  =  1, 2 ) 

1002  FORMAT ( 16F4 . 3 ) 

CALL  I  FI LE(2G, 1 PWEWB* ) 

READ (2 9, 1003)  (( PWEWB ( K, L ) , 1  =  1, 10), K=l, 58) 

1003  FORMAT ( 5X, 10F 5.4) 

TYPE  1001 

1001  FORMAT ( ’  TYPE  IN  STARTING  YEAR  (DEFAULT  IS  1DG8)  -  ',$) 

ACCEPT  2004, I YRST 

I F ( I YRST. LT. 1968. OR. I YRST. GT. 2025)  I YRST=1968 
TYPE  1004 

1004  FORHATC  TYPE  IN  PROPOSED  ANNUAL  FLAT  RATE  PAYMENT,  AND  THE9, 

*  /, 6 X,  9  YEAR  IT  BEGINS - B,$) 

ACCEPT  2004, OAS( 3), I FR 

I  FR=I  FR.-19  6  7 

OAS (2 ) =100 . *OAS(2)/PNIND(8) 

OAS ( 3 ) =10 0 . *OAS ( 3 ) / PN I ND( I FR+2  ) 

TYPE  1005 

1005  FORMAT ( ’  TYPE  IN  PERCENTAGE  (BETWEEN  0  AND  1)  OF  BENEFIT  THAI  ' 

*  ’IS  EARN  I  DIGS  ’ ,  /  ,  5X,  1  RELATED  (1)  FGR  WIDOWS  UNDER  65  ---  ',$) 
ACCEPT  2004, ERPCTU(3) 

TYPE  1008 

1008  FORMAT ( 14X, ’ ( 2 )  FOR  WIDOWS  65  AND  OVER  ---  ',$) 

ACCEPT  2004, ERPCTO(3) 

TYPE  1009 

1009  FORMAT ( 14  X,  ' B  EC  I NK I N G  IN  THE  YEAR  ’,$) 

ACCEPT  2004, I ER 

I ER=! ER-1967 

DO  100  I YR  = I YRST, 2025 

DO  1  J=l, 4 

I F ( I YR. LT. L 1 1 ! I T 1 ( J ) )  GO  TO  2 
1  CONTINUE 
J  =  5 


XX 


r 

n 


2  I  X=J 

HO  3  1=1,944 

3  ZEROC ! )=0. 

NX=10+( I YR- 1965 )/5 
MX=i  1 !  NO  (MX,  15) 

! YEAR* I YR- 19 67 
LXO= ( I YEAR+7 ) / 5 
DO  38  J  =  l, 7 

I F ( I YR. LT. L I  f  1 1 T 2 ( J  ) )  CO  TO  37 
38  CONTINUE 


J=8 

37  I X1=J 

DO  35  I =1, 15 

35  DEATHS ( I )  =  (1. -SURVMC  I  XI, !  ) )*POP( ! +4, I YEAR  +  2  ) 

DO  7  0  =  1,9 

7  ESCDRF ( J )  =  ESC1 ( I  YEAR ) *DTNFC ( J, ! YEAR+2 ) 

DEATH  BENEFIT  FACTORS  FOR  AGE  GROUPS  65  +  HAVE  ALREADY  BEEN 

ESCALATED  IN  THE  PROGRAM  1  RETS!!.  4  5 
DO  12  vJ  =  10,  15 

12  ESCD3F ( J ) =DTHFC ( J, I YEAR+2) 

DO  5  1=1, NX 
NU’ :=IJI  'AGRFC  I  ) 

N3T=NWACRPC I ) 

NF  I  N=NST+i!UM- 1 


DO  6  J=NST, NFIN 

7EMP=DEATKS(  I  )*PRPMRDCI,  !X)*AGEDIS(  ! , J-N3T+ 1 ) *1000 
COEFFC I  YEAR, J)=COEFF( I  YEAR, J)  +  TEMP 
G  3T0TALC  J)=STOTAL(  J)  +  TE;:P*E3CPDF(  I  ) 

5  CONTINUE 


DO  4  1=1, 16 
TEI1P=CUEFF(  !  YEAR,  I  ) 

STCTAK  I  )  =STCTAL (  I  )/Af  iAXl  ( 1. ,  TEMP) 

M=0 


M 1  =  0 

N3T=I YR-1966 
! FCNST.GT. 58)  GO  TO  59 
M2  =1 

I F( I YR.GT.  1969  )  M2  =2 
DO  3  !  =[JST,  58 

I F ( ! . NE. NST. AND. I . GT. 3 . ANT  .MOD (1+2,5). GT. 0 )  GO  TO  3 
RYR=I  YR+I-NST 
DO  9  J  =  l,  6 

I FCKYR. LE. LI  Ml T2 ( J) )  GO  TO  10 

9  CONTINUE 
•J=  7 


10  I X=J 


15 

11 


L  X  =  I  +  G 

I  F  (MOD(  LX,  5) .  EQ.  4.  AND.  LX  .  GT.  (28  +  NST)  )  M1=M1+1 
L  X  =  L  X  /  5 

I F ( LXO . HE. LX)  H=M+ ( LX- LXU ) 

JX=1+(1+ ! ) / 5- ( NST+ 1 ) / 5 
<1X=M  I  NO  ( vIX,  5) 


DO  11  U=1,1G 

I  F(  (  J+iD.GT.  1G)  GO  TO  11 


JX1=MI  NO  (10,  j+i;i) 

I F ( ( I -NST) . GT. 3 )  GO  TO  13 


COEFFC  I  ,  J  )=COEFF(  I  YEAR,  J  )  *RI  APT  Y  (  0  X ,  J  X  1 ,  M  2  )  *S  U  R  V  I  V  (  I  > 
GO  TO  11 

COEFFC  I  ,  J  )=COEFFC  I  -5,  -J  )  *R!  iARRY  (  JX,  JX1,  M2  )*SURY  I  VC  JX,  0 

CONTINUE 

LXO = LX 

CONTI  HUE 

IIST1  =  NST+ 1 

HST 2  =5 -MOD  C  MST+ 2 , 5) 

I FCUST2. EG. 5)  CO  TO  G2 
ns f  3 = N  o i +  NS  T  2-1 
ST 1=1. 


,  i  j.  >  [-  n  l 

,  C-  =  I  .  ,  i  I  c.  ) 


+f ' 


v  * 

»  i 


2) 


3T2  =  ’ !ST2  + 1 
00  60  I =NST, NST3 
nC  G  1  ,J  =  1,  1C 


3 


XXI 


61  COEFFC  !  /  J)=CC0EFFCNST-1,  J ) * (ST2-ST1 ) /5T2 )+C0 GFF (NLT3+ 1,  J)*GT1/ST2 
GO  ST1=3T1+ 1 . 

GG  M3Tl=N3T3+2 
G 2  I FCNSTl.GT. 53)  GO  TO  5  5 
ST1=1. 

DO  5  3  !  =,0311,5  8 
I F (MOD ( 1+2,5). EQ. 0 )  GO  TO  64 
i!2  =3  +  5*  ( (  1+20/5) 

! !  1 = f-J  2  —  5 
DO  67  J  =  l, 16 

•5  7  COEFFC  I  /  J)  =  (COEFF(  NX,  J)*C5.-STl)/5.  )  +  COEFFCf!2,  J)*STl/5. 

GO  TO  63 

64  ST1=0. 

63  ST1=ST1+ 1 . 

65  I F( I YR. GT. 1968)  GO  TO  69 
DO  58  0  =  1,  16 

68  COEFF(2,J)=(COEFFCl/U)+COEFFC3,J))/2. 

69  CONTINUE 
KX3=10+ ( ! YEAR+2 ) / 5 
KX3=MAX0(KX3, 11) 

KX3=M I N0CKX3, 16) 

DO  17  K= I  YEAR, 58 

•J  E  R  =  1 

IFCKFI LE. GT. 2. AND. K. GT. 5)  JER=2 
I FCK.GT. ( I ER-1) )  JER=3 
JFR  =  1 

IFCKFI LE.GT. 2. AND. K.GT. 5 )  OFR=2 
I FCK.GT. ( I FR-1) )  J F R  =  3 
H  =  l. 

I  FCK.EQ.  !  YEAR)  !!  =  .  5 
KX  =  C  K  +  4- ! YEAR ) / 5 
X K  =  1 .  -fiODCK-l  YEAR,  5)/5. 

! FCXK.GT. .9)  XK=0. 

KX=10-KX 
KX1=KX+ 1 
IF(KX)  25,  25,  23 

23  DO  16  J  =  1, KX 

16  ERBU65(K)=ERBU65(K)+ERPCTU(JER)*STOTAL(J)*COEFF(K,J)*H 

ERBU6 5 ( K) =ERBU6 5 ( K )  +  ERPCTU ( J ER ) *STOTAL ( KX 1 ) *COEF F  CKX 1, J ) *XK*H 

25  KX1=MAX0 C 1, KX1) 

DO  18  J =KX1, KX3 

I YR72  =6 0+ I  YEAR- 5* J 
I YR72  =N I  NO C  5 8,  I YR72 ) 

I  YR72  =i  tAXO  C  6,  I  YR7  2  ) 

R=REDFAC(U,  1  YEAR,  STOTAL C J ), F FAC ( I YR72  ) ) 

18  ERB065(K)=ERB0G5(K)+ERPCT0( JER)*STOTALCJ)*COEFF(K, J)*R*H 
IFCKX)  17,22,26 

I FCXK. IT. .1)  GO  TO  29 

26  !YR72=6Q+IYEAR-5*KX1 
I YR72  =M I  NO (5 8,  I YR72 ) 

I YR72=MAX0 ( 6 , I YR72) 

R  =  REDFAC ( KX1,  I  YEAR, S TOTAL C KX 1 ), F FAC ( I YR72 ) ) 

ERB065(K)=ERB065CK) - ER PCTO ( JER ) *STOTAL ( KX1 ) *COEFF ( KX1, 0 ) * R * X K * ! ' 

29  KX4=KX3+ 1 

I FCKX4. GT. 16)  GO  TO  24 
DO  19  J  =KX4, 16 

19  ERB065(K)=ERB065(K)+ERPCT0( JER ) *GTOTAL C J ) *COEFF CK, J)*N 

24  DO  20  J=l, KX 
KX2  =14 A X 0  C 1,  J-  6  ) 

2  0  FRBU6 5 ( K ) =F RBU6 5 ( K )  +  CO EF F ( K, J ) * PWEWB  C I  YEAR, K X 2 ) *OAS ( J  F  R )  *  H 
2  2  KX2  =MAX0 ( 1, KX1-6 ) 

I  FCK.  EQ. I  YEAR)  GO  TO  17 

FRBUG  5  C  K )  =F  RBU6  5  C  K )  +  COEF  F  C K,  KX1 )* PWEWB (  I  YEAR,  KX2  )  *OAS(  JFR )  *XK*N 

17  CONTINUE 
100  CONTINUE 

DO  21  I =1, 58 

ERBU65CI )  =  ( ERBU6  5C I )  +  ERB06  5  C I  ) ) * .  009 *PN I ND C I +2 ) 

21  FRBU65C I ) =F RBU6  5 ( I  )*.  009*PNI MDC I +2 ) 

CALL  OF  I LEC23, FOUTCKF I LE) ) 

’NR  I  TEC  2  3,  2  010  )  ERBU6  5,  F  RBU6  5 


. 


O  O  C1 


xxii 


T  =  CLOCK( 0, 0 ) *6  0 . 

TYPE  2  009,  FOUTCKFI LE  ) , T 

2  009  FORMAT (//,  1 * 3 *  END  OF  RUN',//,'  OUTPUT  FILE  IS 
*  ’  EXECUTION  TIME  =  S,F8.3,  '  SECONDS*,///) 

STOP 
END 


A5. 


DAT',//, 


C 

c 


FUNCTION  REDFACCAGEGRP,  !  YR,  fIF  AC,  F  FAC  ) 

THIS  SUBROUTINE  COMPUTES  REDUCTION  FACTORS. 


WRITTEN  BY  HARRY  NEWTON.  APRIL  1972. 

COMMON/ B  LOCK  1/  PWEWI3  (58,10),  MAX  P E N  ( 9 6  ) 

I NTEGER  AGEGRP, YEAR, YRG5, ACE 
REAL  MAX PEN, f IF AC 

DIMENSION  PCT  (  5  ) ,  D  I  S T (  5  ) ,  B  E NN (  2  ) ,  B  EN F  (  5  ) ,  PWN R  PI  ( 1 1 ) ,  PL/NR  P2  (11) 
DATA  PCT/.  225,  .  125,  .  075,  .  0 75,  0 .  /,  D S  ST/ .  22  5,  .  125, .  075, .  075,  0. / 
DATA  PWNRP1/.  55, .  83,  .  78,  .  73,  .  6 7,  . C  1,  .  54,  .  4  7,  .  4,  .  32,  .  15/ 

DATA  PWNRP2/.  85,  .  5,  .  75,  .  69,  .  6 3,  .  5 7,  .  5, .  4 3, .  36, .  25, .  11/ 

1  K 1=AGEGR  P- 6 
Kl=i  SAXO  ( KX,  1) 

XIIXPEN=MAXPEM(  !  YR) 

AVGf  i=MFAC/PWEW3  (  !  YR,  K 1 ) 

I  F( I YR.GT. 2)  GO  TO  6 
PWNRP=PWNR PI (AGEGRP ) 

GO  TO  7 

G  I  0  LD  =  ( ! YR+4 ) / 5 

I  0  LD=f  1 1  NO  (  SOLD,  AGEGRP- 1) 

PWNRP  =  PWNRP2 (AGEGRP-  I  OLD ) 

7  AVGF =F FAC/ PWNRP 
AO  E  =  1 0  +  5  *AG E  G  R  P 
I F(AGE. GT. 64)  GO  TO  25 
I F ( A VC!  1 . GT. ( . 75*XMXPEN ) )  GO  TO  2 4 
3  E Mi-1  ( 1 )  -1.  25*AVGI  I 
GO  TO  2  G 

2  4  BEI-’M(  1 )  =XflXPEN 

26  E  EHM(  2  )  =2  *  ( AVGRI-B  ENM(  1 )  /2 .  ) 

GO  TO  27 


25 

27 

2  3 


31 


32 


0 


BENM(2  )=.  7  5  *  A  V  Gf ! 

B  E  f  1 1 1  ( 1 )  =  2  *  ( AVGI  i-B  ENf  i  (2  )  /  2 .  ) 

YR65=B3+ I YR-AGE 

I F ( YR6 5 . LT. 1 )  YR65  =  1 
I  F(YR65.  GT.  96  )  TYPE  2  8,  I  YR,  AGE,  YP.6  5 

FORMAT ( 5  YEAR  = ' ,  I  5, 8X,  1 *  AGE  =  9 ,  ! 4 , 3 X. 

YKPEG  5=i  1AXPEN  ( YRC  5 ) 


*  YR6  5 


15) 


I  F  ( Y  R  6  5 .  LT.  9  )  YMPE6  5  =  Yf !  PE6  5  *  (  F  LOAT(  YR6  5  )  + 1 .  5)/10. 

D  EHF ( 2 ) =AVGF 
B  E  M  F ( 3 ) = 1 . 5*AVGF 
r> ENF  (  4  )  =YI  i PE 6  5 

I  F ( YH PEG 5 . GT . ( 2 .  3* AVGF  )  )  GO  TO  3 1 
9  E  M  F  (  5  )  =  0 . 

BTOT=. 2  5  *  3  E 1 1 F ( 2 )  +  . 15* SERF ( 3 )  +  . 1 5 *RFNF ( 4 ) 

BENF ( 1 )  =  ( AVCF-R  TOT ) / . 4  5 
GO  TO  32 

3  ENF ( 1 )  =  . 4*AVGF 

BTOT=  .  4  5 *3 ENF  ( 1 )  +  .  2  5*C ENF  (  2  )  + .  15*BEI’F  (  3  )  +  .  05  *RFNF  (4  ) 
DENF ( 5 ) =10* (AVGF-BTOT ) 

CO  N’T  I  NUE 

B E Ni  i  ( 1 )  = .  75*BEHM(  1 ) 

BFNM (2 ) =. 7  5 *B ENf  (2 ) 

B TOT=0. 

PCT ( 4 ) =D I ST( 4 ) 

PCT ( 5 ) =D I ST( 5 ) 

I F (BENF ( 5 ) . EO . 0. )  CO  TO  10 
PCT ( 4 ) = . 025 
PCT ( 5 ) = . 05 
YMPE65=H4XPEM( YR65) 

I  F(  I  YR.GT.  YR6  5)  Yi ;  PEG  5  =  Xf  iXPFU 
DO  2  0  v i  =  1 ,  5 
DO  2  0  I  =1,  2 


■ 


. 


xxiii 


I  F  (  (  AftAXl  (  BENiK  I  ),  B  ENF  ( J  )  )  +  .  5*AM  I  Ml  (  BENI  I  (  I  ),  BFN'F  (J)  )  ) .  GT.  YMPE65) 
*  GO  TO  21 

! F(BENM( I ) . GT. BENF( J) )  GO  TO  22 
TEMP=BENIU  I  )*.  5 
GO  TO  23 

2  2  TEMP=BENi  I  (  I  )  -  0  EMF  ( J  )  * .  5 
GO  TO  23 

21  TEMP=YMPE6  5-AMAXH  RENlU  I  ),  B  EfJF  ( J  ) ) 

TEMP=AF.AX1(0.  ,TEMP) 

23  BTOT=BTOT+TEMP*PCT(J) 

20  CONTINUE 

PRO  PB  P=  PWEWB ( I YR, K1 ) * PWNR P 
PRO  PWP=  PWEl/B  (  I  YRy  K  1 )  *  ( 1 .  -  PWNR  P ) 

TEM P= . 75*AVGM 

REDFAC  =  ( PROPS  P*BTOT+  PRO  PWP*TEf!P  )  /  ( TEMP*PV/El7r  (  !  YR/  Kl)  ) 

RETURN 

END 


XXXV 


C  VERS  l  Of!  AS 
C  PROGRA;  i:  ;c 
C.  FOR  THE  CA 
C  SPEC  I F I  EP 
C 


OF  12 : 00  AUGUST  17,  1372 

i>  i  sBK'.  7.  THIS  PROGRAMME  CALCULATES  P  I  SAG  !  I  I  TY  F  E  r '  F.  F  I  T$ 
i JALA  PENS  I  ON  PLAN.  I T  ALSO  COMPUTES  WIVES'  GENE  FITS  AS  A 
OPTION. 


REAL 

+ 

+ 


POP(19,60,  2),  DTHFAC  ( 15,  60,  2),  PRVRTE(9,G,  2), Did  NS(4) 
PROP  (3,  10),  FI  Ll(20),DI  SFR(9,60,  2  ),  YP.PEC  6  0  ),  PHI  00(60) 
l;  I  F  E  B I :  ( 19,00,  2),0AS(3) 


/ 

/ 


REAL 
!  NT  E 

DATA 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

4~ 

DATA 

+ 

+ 

+ 


D I S  E  R  N ( 9 , 6  0 , 2 ) , PH WHWC (10) 
GER  YEAR(60),YR 
(  (  (  PRVRTE (  !  ,  J,  K),  I  =1,  9  ),  J 
/ .  04, .  1, .  24, .  4, .  66, .  36,  1 
. 96, 1. 39, 2. 61, 4. 27, 7.64, . 

3.66..  05. . 13. . 36. .63. 1. 12 
1.  13,  1.6  7,  3.  15,  5.  08,  9  .  21, 
9.  31,  .  05,  .  12,  .  3,  .  5,  .  82,  1. 

.  62,  1.,  1.45,  2.  73,  4.  46,  8.  0 
3.  74,  .  05,  .  14,  .  38,  .  7,  1.  13, 

I.  15,  1.6  7,  3.  15,  5.  08,  9.2  1, 
FMTK'C  5/  .  49,  1.  365,  3.  605,  7. 
3.257, 9. 124, 19. 846, 1. 04, 3 

II. 064, 24. 381, 1. 103, 3. 942 

26.223. 1. 12. 4. .  11. 593. 26. 
11.6, 26.4/ 


, FACTOR (9 ), FMTK65 (4, 10 ) 

=  1,  6  ),  K  =  l,  2  ) 

.  78,  2.  88,  5. ,  .  05,  .  13,  .  35,  .  6, 

05,  .  13,  .  37,  .  6  7,  1.  07,  1.  55,  2.  9  3,  4.  78, 

,  1.6  3,  3.  0  7,  4.97,  9.01,  .  05,  .  13,  .  36,  .  68, 

.  05,  .  13,  .  3  7,  .  6  8,  1.  12,  1.  68,  3.  16,  5. 12, 

17,  2.  19,  3.  54,  6  .  14,  .  05,  .  14,  .  36, 

9,  .  05,  .  14,  .  38,  .  68,  1.  08,  1.  57,  2.96,  4  .  82, 
1.  6  4,  3.  08,  4. 9  8,  9.  0  2,  .  05, .  14,  .  38,  .  7, 

.  05,  .  14,  .  38,  .  7,  1.  15,  1. 69,  3.  18,  5.  13,  9.  3/ 
35, .  731,  2.  4  21,  6.  53  2,  14  .  112,  .  96  3, 

. 655, 10. 393, 23. 189, 1. 087, 3. 844, 

, 11. 387, 25. 79, 1. 12, 3. 991, 11. 552, 

36,  1. 12, 4. ,11. 6, 26. 392,  1.  12,  4., 


DATA  ((him  I,  J),  !  =1,9),  J  =  l,  10) 

-  /.4,  3*.  95,  3*.  9,  2*.  85, .  4,  3*.  95,  3*.  91,  2*.  86, .  2, .  45, .  4, 

+  5*.  35,  .3,  .  21,  .  52,  .  4  7,  5*.  4  2,  .  36,  .23,  .6,  .5  4,  5*.  49,  .43,  .  24,  .  Cl, 
+  .  5  5,  5*.  5,  .  44,  .  2,  .  4  5,  .  4,  5*.  35, .  3  0,  .  21, .  52, .  4  7,  5*.  41, .  36, .  22, 

+  . 53, . 53, 5*. 48, . 42, . 23, . 6, . 54, 5*. 49, . 43/ 


DATA 

PHWHi/C/ 

. 576, . 

738, 

. 942, . 

9  4  7, 

< 

e  <, 

T9  4 

,  .  8  4  3, 

.  741 

f  a 

55  8 

DATA 

FACTOR/ 

386.4, 

6  8  3. 

5 ,  7  b  1 » 

7, 828. 

■  2, 

834. 7, 

835  . 

6, 

813 

+ 

696. 6/ 

PAT  A 

OAS/300 

.,969. 

,0./ 

DATA 

D i S 1  NS/ 

.  95,  .  i 

G  .  75 

,.8/ 

DATA 

F ! LE/  'R 

oCUR', 

'MIC 

UR',' R 

S  PRO 

5 

4 

8  ,  . 
.  1  . 

1  PRO  ' , 

'  TXF 

P; 

i  8  8 

'  / 

*r 

'mine' 

f  L  1  <:  w  .  f 

UN’I.I  P* 

,  jdi: 

TF 

"  P  ' 

,  *  DSRS 

p  8  8 

LA 

Nil  C 

+ 

1  D  31  i  1  ?' 

, ' DSTF 

:  p  8  5 

■  / 

RSCWF * 

, !  ?  1 1 

r 1 

W  * 

iF  ' 

,  ' RS  PW 

F  ’ ,  9 

M! 

Pl.’P 

r  r\ *  i  ! 

L.  ivj  ! 

VALENCE ( 

POP,!/! 

FEBN 

) 

8  nrn cp  8 


I 

1 


$) 


n  o 


p  ■> 

:  i  ' 


r 

r 


r 


1  TYFE1 

FOR! '.AT (  '  TYPE  IN  PLAN  T’  T,T'-*'rrn* 

ACCEPT2, FNAME 
FORMAT ( A5 ) 
oo  3  i  :c=i,  5 

i F (FRAME. ER. F I LE ( ! N) )  GO  TO  4 
TYPE 100, FNAME 

CROAT ( IX, A 5, !  ?,  TRY  AGAIN'/) 

70  101 

CALL  ! F I LE ( 2 0, F I LE( I K+5 ) ) 

CALL  ! FI LE (21, FNAME) 

CALL  I F I LE(22,  'ONE' ) 

CALL  I F I LE ( 2  3,  'Ml  PM X 1 ) 

I  F(  !!•'./ 2*  2.  HE.  IN)  CALL  I  F  I  LE  (  2  3,  ’  RSPNX  '  ) 

I  F(  '  EG.  5)CALL  !  FI  LE(23,  'TFPKZ' ) 

CALL  OF  I LE ( 24, FI LE( I X+10}  ) 

RE  OR  (  2  0,  20  )  ( ( ( DTHFAC  (  I  ,  J ,  !<  ) ,  J  =  1 ,  6  0  ) ,  !  =  1 ,  15),K  =  1,  2  ) 

R  E  A  P  (  2  1 ,  5  )  ( Yi  i  P  E  (  J  ) ,  J  =  1 ,  6  0  ) 

READ  (22,  5  )  ( ( (  P  )  P (  ! ,  J ,  K  ) ,  J  =  1 ,  6  0  ) ,  !  =  1 ,  19),  !C  =  1,  2  ) 

REAP  (2  3,  5)  (  PM  I  NR(  J),  J  =  l,  60) 

FORMAT ( 10G ) 

T!HS  SECTION  SCALES  THE  FIRST  AGE  GROUP  FOR  THOSE  2  2-24  YEARS  Of 
ACE. THE  FLAT  RATE  CALCULATION  BEGINS  WITH  MULTI  PLY  I KC  THE 

A 


THE  Ci  R  RES  POMP  I  NG  POPULAR  I  ON  oi.« 


P  I  SAD  I  L  I  TY  PREVALENCE  k;\  .  r 

THE  CALCULTI ON  OF  THE  EAR  I  I  MGS  RELATED  PORTION  IS  SIMILAR  F  LG  IT 
INCLUDES  ii!E  DEATH  RATE  OF  THE  CORES  POND  I  MG  POPULATION  A!  E  ODOUR: 


A  !  cn 


1  I 


XXV 


SCALE*!. 

I  -  ( 1 . EQ. 1 )  SCALE*. 6 
DO  7  0=5,60 
N=( J-5 ) / 5 
i!=[  I A  X  0  ( 1,  f!) 

H=MI  NO (5, N) 

YEAR( J)= YEAR (J)+ 1955 

D  !  3  F R  (  I  ,  J,  K)  =  POP(  I  +4,  0,  K  )  *PRVRTE (  I  , N,  2  )  *JCALE 

DISERNC  l,J,IO  =  P0P(  I  +  4,  0,  K  )  *  PRVRTE  (  I  ,  N,  1 )  *SCALE  *DTI!F  AC(  I  ,  J ,  K  ) 

I F ( I K/2*2. EQ. ! K)  GO  TO  8 

I  HI  =4 

GO  TO  9 

IN!  =0 


0  JJ  =  0 

I F( IK. EQ. 5)  GO  TO  10 
GO  TO  15 


C 

C  I  F  (  I  K.  EO .  5  ),  THEN  TilF  TXFPB  OPTION  HAS  BEEN  SPECIFIED  AND  THE 
C  USER  MUST  DECIDE  WHICH  PENSION  INDEX  HE  WILL.  USE .  THE  INPUT  IS 
C  THROUGH  THE  TELETYPE. 

C 

10  TYPE 11 

11  FORMATC  ECONOMIC  ASSUMPTIONS  -  (P.S/M  I  )  *  /  $  ) 

ACCEPT  12,  Ai!S 

12  FORMAT (A2) 

I  FCANS.NE.  Mil  '  )  IPS!  =4 
C 

C  THIS  SECTION  MULTI  PLIES  THE  APPROPRIATE  PROPORTION  I  NS UR ED 
C  FOR  DISABILITY  BY  THE  DISABLED  CONTRIBUTOR  POPULATION.  TIT 
C  RESULTS  ARE  PUT  INTO  THE  MATRIX  W I  FEB  N  WHICH  13  THE  POPULATION 
C  ARRAY  (NO  LONGER  USED  AMD  THUS  ECUIVAL.ENCEP  TO  Ml  FERN)  BECAUSE 
C  THE  CALCULATION  OF  WIVES’  BENEFITS  IS  IDENTICAL  TO  THAT  OF  THE 
C  FLAT  RATE  TO  THIS  POINT. 

r 

13  DO  15  K*l,  2 
DO  14  1=1,9 
DO  14  J  =  5, 60 
N  =  1 

I F(K. EQ. l.AND. J.GE.  25)  N=2 
I F(K. EQ. 2. AND. J.GE.  1)  N=3 
I F(K. EQ. 2. AND. J.  GE.  15)  N=4 
I F(K. EQ. 2. AMD. J.GE. 25)  M=5 
I F(K.EQ.2.AND. J.GE.  45)  N=6 
D I S  F  R ( I , J , K) =D I S  F  R ( I ,  J  ,  K ) *  PRO  P ( I,  JJ  +  N) 

14  V/l  FE3N(  I ,  J,  1 )  =D  I  SFR (  I ,  J,  1 ) 

15  J  J  =  J  J  + I  Ml 

n 

C  THIS  SECTION  TOTALS  THE  EARNINGS  RELATED  AND  FLAT  RATE  BENEFITS 
C  THE  COMPUTED  GO  TO  SETS  THE  APPROPRIATE  FLAT  RATE  BENEFIT  TO 
C  BE  USED. THE  USER  CAM  SPECIFY  A  NEW  FLAT  RATE  TO  BE  USED  IN  THE 
C  FUTURE  VIA  THE  TELETYPE. FOR  THE  YEARS  PRECEDING  THE  NEW  FLAT 
C  RATE  THE  PROGRAM  DEFAULTS  TO  300  OR  960  AMOUNTS  DEPENDING  ON  THE 
C  BEING  TESTED. IF  THE  USER  IS  TESTING  A  TXFPB  OPTION  THE  PROGRAM  WILL 


C  ASK  WHICH  INITIAL  FLAT  RATE  HE  WISHES  TO  USE. 

q 

TYPE  6 

6  FORMAT ( ’  ANNUAL  FLAT  RATE  BENEFIT  AND  YEAR  IT  BEGINS?  V) 
ACCEPTS, GAS (3),  YR 
DO  16  K=l, 2 
DO  16  J  =  5 , 6 0 
DO  16  1=2,9 

DISFRC1,  J,K)=DISFR(1,  J,K)  +  DISFR( I, J, K  ) 

15  D I  3 ERIK  1, J, K ) =  D I SERNC 1, J, K )  +  DI SERN( I , J, K) 

GO  TO  (  31,  31,  32,  32,  33  ),  I K 

31  I J= 1 

00  TO  34 

32  I J=2 

GO  TO  34 
35  TYPE55 

55  FORMAT ( ’  FLAT  RATE  -  ( CURRENT/ PRO  POSED  )’,$  ) 


XXVI 


ACCEPT 12, FR 

I F (FR. EQ.  1 CU  '  )  GO  TO  31 
GO  TO  52 
34  TYPE29 

2  9  FORMATC  WIVES  BENEFIT  -  (  YES/NQ  )  :  '  ,  0  ) 

ACCEPT  12, Ado 
I  L  =  2 

I  F(A!;S.  EO.  '  NO  T  )  i  L  =  1 

G  THE  EARN  I  MGS  RELATED  PORTION  13  MULTIPLIED  PY  TIT  RATE  OF 
C  OF  RETIREMENT  PENSIONS  AND  THE  PROPORTION  OF  CONTRIBUTORS 
C  FOR  DISABILITY. 

C 


GROWTH 
I  NSURED 


DO  17  K=l, 2 
DO  17  J  =  5,  6 0 
N  =  1 
•JJ=1 

I F( I J.EU.2.AMD. J.GE. 8)  JJ  =  2 
I  I =  J J**3 

I  F  ( 1C.  EQ.  2 .  AND.  J.GE.  1)  N=2 
!  F  ( K .  EG .  2 .  A  NO .  J .  G  E .  1 5  )  1-3=3 
I F(K. EO.2. AND. J.GE. 25)  N=4 

D  I  SERIK  1,  J/  K )  =  (  (  ( YMPE  (J-2)+YMPE(J-l)+YIPE(J))/1500Q)* 
+  (Dl  SI  NS  (!!)*!)  I  SERIK  1,  J,K))) 

I F( J.GE. ( YR- 1966+ 1 ) )  JJ  =  3 


!  F(  J.GE.  (YK-  1:006  +  1 )  )  I  !  =  YR-  1066+1 

17  D  I  SFR  ( 1,  J,  K  )  =  (  (  GAS  (  J  J  )  *  (  PN  I  ND  (  J  )  /  PI! !  MD(  I  I  )  )  )  *D  I  SFR  ( 1,  J,  K  )  ) 
DO  18  J  =  5  ,  6  0 

D  I  3ER.rK  I,  J,  1 )  =D  I  SERIK  1,  J,  1)  +  Di  SERIK  1,  J,  2) 

18  rsiSFR(l,  J,  1 )  =L)  I  SFR ( 1,  J,  1)  +  D!SFR(1,  J,  2) 

TYPE18G 

180  FORMAT ( s  RATIO  OF  IMPUTED  RETIREMENT  PENSION  AND'/ 

+  5  YEAR  IT  BEGINS:  '  ,0  ) 

ACCEPT5, B  J, YU1 
I  F  (  1 1\.  EQ.  5 )  GO  TO  3C 
GO  TO  37 
3C  TYPE 350 

350  FORMATC  EARNINGS  RELATED  -  ( CURRENT/  PROPOSED  )  '  /  0  ) 

ACCEPT  12,  FP. 

I  J=2 

I F ( FR. EQ. ' CU ' )  I J  =  1 
C 

C  FARMINGS  RELATED  DISABILITY  PENSIONS  ARE  SCALED  BY 
C  T  H  E  R  A  T  I  0  F  0  R  THE  IMPUTED  R  ETI  REIIE I  IT  PE  U  S  I  0  N . 
c 


37  DO  181  J  =  5, 6  0 
A  J  = .  1  o 

I  F  (  I  J .  F.Q.  2  .  AND .  J .  G  F. .  3 )  A  J  =  1 , 
I F( J.GE. (YD  1-10  60+ 1 ) )  AJ  =  BJ 


181  DISERNC1, J, 1 ) =C I SERIK  1, J,  1)*AJ 
UR  I  TEC  2  4,  19  )  ( D  I  SERIK  1,  J,  1),  J=5,60) 
WR I TE( 2  4, 19 ) ( D I SFR ( 1, J, 1 ) , J  =  5, G  0 ) 
IS  FORMATC  10C1PF12.  C)  ) 

2  0  FORMAT (60 


THIS  SECTION  CALCULATES  TIE  WIVES'  BENEFITS. 

CALL  0 F I L E ( 2 5 , F I LE ( I K+ 1 5 ) ) 

GO  TO  (30, 22), I L 


C  THIS  SECTION  CALCULATES  THE  NUMBER  OF  WIVES  ENTITLED  TO  F.  ENNF I  To . 
r 


22  DO  23  1=1,9 
2  3  J  =  5 ,  6  0 

2  3  V ;  I  F  E  B !  K  I ,  J  ,  1 )  =  W I  F  E  B  N  (  I  ,  J  ,  1 )  *  F  A  C  T  0  R  (  I  ) 


xxvii 


C  TNI  j 


r 


CALCULATES  THE  NUMBER  OF  WIVES  OVER  65  WHO  AP F 
LEO  TO  BENEFITS  UNDER  THE  SCHEME. 


no  2  4  1=1,4 
00  2  4  J  =  5,6  C 
'•j=(  J-5  )/5 
;=  A.  0(1,  N  ) 

H=M! HO (10, H ) 

W!  FESr:  (  I  ,0,  2)  =17 1  FEBIK  I  +  9/  J,  2  )  *FI  IT!  ;6  5  (  I  ,  N  ) 

24  WI  FEBIK  10,  J,  1 )  =0  . 

r 

0  THE  WIVES  OVER  G5  WHO  ARE  ENTITLED  TO  BENEFITS  ARE  APPEI 
0  UNDER  65  WHO  RECEIVE  BENEFITS. 


C 

DO  2  5  1=1,4 
DO  25  0=5,60 

25  W  I  FERN  (10,  J,  1)=WI  FEB  N  ( 1 0 ,  J ,  D  +  WI  FERN  (  I ,  J,  2  ) 

DC  250  J  =  5 , 6 0 

250  WI F LBN (10, J, 1 ) =W I FECN ( 10, J, 1 ) *100 
r 

C  THIS  CALCULATES  THE  HUMBER  OF  HUSBANDS  AMD  WIVES  AT  HOLE 
C  WITH  CHILDREN. 

C 

HO  2  G  I =1, 10 
DO  2  6  J  =  5 , 5  0 

26  W!  FEBM(  I,  J,  1)=WI  FEB  N  (  I,  J,  1)*PI!WHWC(  I  ) 

C 

C  THE  HUMBER  OF  WIVES  ENTITLED  TO  BENEFITS  IS  TOTALLED  AND 
C  COSTED  ADD  MULTIPLIED  BY  TI’E  APPROPRIATE  PENSION  INDEX. 
r 


TO 


-o 


10 
J  =  5 , 6  0 


DO  2  7 
DC  2  7 

27  WI  FEBIK  1,  J,  1 )  =W I  FEBIK  1,  J,  D  +  WI  FEBIK  I  ,  J,  1) 
DC  2  70  J  =  5 , GO 
.  J  J  =  2 
I  !  =£ 


I F(J. GE. YR-1966+1)  JJ  =  3 
I FCJ.GE. YR-1966+1)  I  I =YR-19C6+1 

27  0  W I FEBIK  1,  J,  1 ) =W! F EBN( 1,  J,  1 ) * ( GAS ( JJ ) *( PH  I ND ( J ) / P! 1 ! HD ( I  I  )  )  ) 
WR  !  TE  ( 2  5,  19  0  )  ( W I  FEBIK  1,  J,  1),  J  =  5,60) 

190  FORMAT ( '  \  10(-2PF12. 0)  ) 

GO  TO  1000 
30  DO  134  J  =  1 , 6  0 
13  4  WI FEBIK  1, J, 1)=0. 0 

WR  I  TE  ( 2  5,  190)  (WI  FEBNQ,  J,  1),  J  =  l,60) 

10  00  TYPE40,  FI  L  F.  (  I  K+10),  F  I  L  E  (  I  K+15) 

40  FORI  SAT  (  1  OUTPUT  FILES  APE  ',A5,  '.DAT  AMD  8 ,  A5,  1  .  DAT  '  /  ) 

STOP 

END 


THOSE 


■ 


n'i  fA  cc  ci  O  C J  C.'  O  C. 
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C  VERSION  AS  OF  12 
C  PROGRAM!  IE  CM  I  LD. 
C  FOR  ORPHANS  AMD 


:  0  0  A 'JOUST  11,10  72 

8. THIS  PROGRAMME  CALCULATES  PC, REFITS 
CHILDREN  OF  DISABLED  CONTRIBUTORS. 


r 

\s 


1 

? 


O! MENS! OK  DUMMY(IO) 

REAL  P0P(4,60,  2),  PROP  (4,  13),  ADR  ( 5  ) ,  PN  HP  (  C  0  ) ,  SDF  I  FR  (  4,  0), 

+  F! L  E ( 10),  PROP  1(4,  53),  ORPMBIK4,  58,  2 ) , CHLDBN ( 4, 53, 2), PROP  2 (4, 53) 
INTEGER  YEAR ( 6  C ), YR 
DATA  ( ( PR0P( I , J), J=l, 13), 1=1,4) 

+  /.  105, .  4  2  5, .  52  8,  .  517, .  4  86, .  4  6  8, .  4  3  7, .  4  2  3, .  4  0  3, .  4, 

+  . 399, . 395, .401, . 15499, .57,1. 71, 1. 773, 1. 711, 1.C48, 1. 574, 1. 502, 

+  1.424, 1. 38, 1. 378, 1. 376, 1. 382, . 234, .934, 2. 580, 3. 51 3, 3. 571, 3. 427, 
+  3.290,  3. 150,3. 02 3,  2.  888,2.  706, 2. 805, 2.  801, .324,  1.  383, 3.  577, 

+  4. 947, 5. 717, 5. 522, 5. 297, 5. 097, 4. 873, 4. 072, 4. 406, 4. 370, 4. 307/ 
DATA  ( (SDF  I  Ft)(  l,J),J  =  l,G),  1=1,4) 

+  /.  399,  .  43  8,  .  52  5,  .  541,  .  54  6,  .  548, .  6  5  5, .  811, .  8  7  7, . 9  00, 

+  .  92  3, .  92  9,  .  986,  1.  232,  1.  338,  1.  392,  1. 42,  1.  432,  1. 301,  1. G 30,  1.  778, 

+  1.353,  1.  895,  1.  910/ 

DATA  ADJ/. 75, . 8, . 85, . 9, . 95/ 

DATA  FILE/'  RSCUP.  ’  ,  'Ml  CUR',  'RSPRO',  'Ml  PRO5,  s  TXF  PP  ' ,  'RSCC!", 

+  'Ml  CCH  '  ,  '  RSPCH  '  ,  'Ml  PCH',  'TFPCIl'/ 

TYPE! 

FORMAT ('  TYPE  If!  P LAM  TO  PE  TESTED:  ’,5) 

ACCEPT2, FRAME 
FORMAT ( A5 ) 


no  3  I  K  =  1,  5 

3  I  F  (  F  NAME.  EQ.  FI  L  E  (  I  !C ) )  GO  TO  (  31,  32,  31,  32,  33  ),  I  K 
TYPE 5, FRAME 

5  FORM, AT  ( IX,  A5,  '  ?,  TRY  AGAIN'/) 

GO  TO  6 

31  CALL  I F I LE( 2 0,  ' RSPNX ' ) 

GO  TO  34 

72  CALL  I  FI LE ( 2  0,  'Ml PMX  5 ) 

GO  TO  34 

3  CALL  I  FI  LE(2  0,  'TFPfIX' ) 

4  CALL  I  FI  L  E  (  2  1,  '  OS  IE  '  ) 

CALL  OF  I LE( 22, F I LE ( i K  +  5) ) 

READ (20, S ) ( PHI ND(d), J  =  l, 60) 

READ  ( 2  1,  9  )  ( (  PO  P(  I,  J,  1),  J  =  l,60),  1  =1,4) 

DO  8  J  =  l, 9  0 
READ (2 1,9)  DUMMY 

R EAD (21,9 ) ( ( PO P( I , J, 2), J=1,G0), I =1,4) 

FORMAT ( 1QG) 


THIS  SECTION  DOES  A  LINEAR  INTERPOLATION  FOR  THE 
INTER  YEAR  PROBABILITIES  OF  BEING  ORPHANED  FOR  CI'ILDREM 
FROM  0  TO  17  YEARS  OF  AGE. 

00  II  1=1,4 
,  i  n  =  r. 

00  11  JK=1,12 
I! =5 

I  F  (iJK.  EQ.  1 )  H=2 
D  ELTA= PROB ( I , J K+ 1 ) -  PROD ( I , J K ) 

XI  l'C=DELTA/f! 

DC  11  JL=1, N 
J H=JN+1 

IF(JL.GT.l)  GO  TO  10 


GO  TO  11 

10 

PROP  1C  I, JN)  = 

PROBK  1,  JH-D  +  XI  f!C 

1 F(JN. EC. 57) 

PROD  1 ( 1 , 53 ) =PROP ( 1,13) 

J.  JL 

n 

CONTINUE 

c 

THE  FIRST  AGE 

GROUP  IS  SCALED  BY  .6  BECAUSE  IT 

COHTAI NS 

r* 

'y 

PERSONS  AGED 

15  TO  13  Hill  LE  LE  ARE  ONLY  CONCERf 

iED  LOTH  T 

r 

n 

Hi-:.:  ARE  15  TO 

17. 

P ...  12  J  =  1 ,  5  S 

P  ::0  i:  1  ( 4  ,  J  )  =  P 

LOB  1 ( 4, J ) * . 5 

!  r\  v.  r  * 

'j  \J 


xxix 


C  TK1  PRCDALI  LIU  ES  OF  2  E I  MG  ORPHANED  AE;NOW  .  IULT  I  PL  I  ED 
C  C  Y  THE  Cn ' R. ES POi ID  I  TIG  PO PU  LAY !  0 N . 

C 

DO  IT  K  = I , 2 
DC  13  1=1,4 
DO  13  0  =  1,58 

7  3  0  i  <  PH  B  N  (  1 , 0 ,  A  )  =  PRO  B 1  (  I ,  J  )  *  PO  P  (  ! ,  J  +  2 ,  K ) 


C  THE  NUMBERS  OF  OPP! IANS  ARE  EC TAILED  FOR 


.0!’  yea: 


00  14  :>1,2 
PC  14  0  =  1,58 
DO  1  1-2*4 

j  4  6  RPHfliU  ( I  ,J,K)=ORPHBW(  1  ,  J,  K)  t  DRPHBN  (  l,J,K) 

•j  v  p  ■*  i  5 

]r  FORMAT (  1  EATER  .MIIJUAL  VALUE  OF  OP.  Pi!  A  AS  BENEFIT 
+  ’’ARP  YEAR  IT  DEC  IRS  ’ ,  3  ) 

ACCEPTS,  PAY  WEI ,  YR 
!  F(  P/.Yi  INI.  EG.  348.  ) CO  TO  180 
I  F (  PAY! TIT.  ME.  300.  )  CO  TO  ICO 
GO  TC  2.2  2 
r 

C  THE  ME XT  SECTIOM  MULTI  PL ! EG  IRE  A;  Mi  UAL  OR  PHAMS  PEMEFIT  R 
C  TRE  NCR  ‘.PER  OF  ORPHANS  ARP  T!  'A'  ESCALATES  THE  PESO  LCD  PY 
C  T! I E  APPRO  PP  !  ATE  YEA! :  ’  S  PEi'IS  I  OH  I  I 'D EX  . 

r- 

130  DO  131  K=l, 2 
PC  182  J  =  1 , 6 

18  2  0  P.  P!  !B l  ( 1,  J  ,  R)  =0  R  Pi  13  M  ( 1 ,  J  ,  1C )  *  3  0  0 .  *  (  PM  I  f  ID  ( J  +  2  )  /  1 0  0  .  ) 


DO  181  -J  =  7,  E 


J  O 


701 

X"  X 


r  R  P  KB  M(  1,  J,  K  )=0R  PH  DR  ( 1,  J,  K  )  *  PAYI R  IT 

r;;  T  '  17Q 

2  2  2  DO  1C  K  =  1,2 
DO  16  0=1,58 
YEAR  (  J  )  =  10  6  7+.J 

1G  ORPIiBMC  1,  J,  K  )=OF;P!  :GH(  1,  J,  K)*300.  *(PMI  RD (  J  +  2  ) / 100  ) 

CO  TO  170 
15 0  LOOF=YP.-1063 

Pi  p  1  CO  V  —  1  O 
J  I  J  L  ;\  “  1  /  c. 

DC  161  0=1, LOO P 
YEAR (0 )=1967+J 

181  OR  PHD  M  ( 1,  J  ,  K )  =0R  PM3  M  ( 1 ,  J ,  K  )  *  3  0  0 .  *  (  Pf !  I  HD  ( -J  +  2  )  / 1 0  0 ) 

DO  1C 2  v.!  =  LQi'P+l,  58 
YEAR ( >J )  =  19 6 7+ J 

152  0  P.  PHD  f !  ( 1 ,  v ! ,  K  )  =C  C  PH  DM ( 1 ,  • ! , K  )  *  PAY!  IT* (  PHI  HP  (J  +  2  )/ PM  I  ND  C I. 


n 


C  THE  BENEFITS  ARC  THEM  TOTALLED  BY  SEX  AMD  STORED  FOP  PPI 
r 

170  DO  17  0=1,58 

0RPMD.M(2,  J,  1)=0RPHBM(  1,  J,  1)+0RPI!PI](  1,  J,  2  ) 

!  F  ( J  .  GE  .  3  .  AMD.  J  .  LE.  7  )  OP  PM  BP!  (  2  ,  J,  1 )  =0P  PFTM(  2,  J,  1 )  *AP  J  ( J-2 
17  C0RT1MUE 

n 

C  THE  ME XT  SECTIOM  DOES  A  LINEAR  INTERPOLATION  TO  CO  LCUL AT 
C  THE  INTER  YEAR  PERCENTAGES  OF  SURVIVING  PI  SAP  LED  FATHERS 
C  INSURED  FOR  D I  SAB  I L IT Y. THE  FIRST  DATA  YEAR  IS  1975  . 


DO  13  1=1,4 
JM  =  0 

CO  19  JK= 1, 5 

D  l  LTA  =  SD  F  I  FD  (  I  ,  J  K+ 1 )  -  S  DF  I  F  D  (  I ,  J I-. ) 
XI nC=DELTA/5 
n0  19  J  L  =  1 ,  5 
■JM=JM+1 

IF(JL.CT.l)  GO  TO  18 
PROD  2  (  I,  J!i)=SDF  I  FD(  !  ,  ,JK) 

GO  TO  10 

18  PP.032  (  I,  JiJ)  =  PR0B2(  I  ,  JM-D  +  XI  MC 


XXX 


in  continue 

c 

C  FOP  T'-:E  YEARS  8EYOND  2000  WE  USE  THE  VALUES  FOP  2000. 
r 

no  20  I =1,4 

PR0B2  (  !  ,  26  )=SDF  !  FD(  1,6) 

DO  20  J=2  7, 51 
2  0  PRO C  2  C I ,  J )  =  PRO  B 2  ( ! ,  26) 

n 

C  MULTIPLY  THE  PERCENTAGES  BY  THE  CORRESPONDING 
C  POPULATION  TO  CALCULATE  THE  NUMBER  OF  CHILDREN  OF 
C  0  I  SAB  LED  FATHERS. 

n 

w 

DO  21  K  =  1 , 2 
3CALE=1. 

DO  21  1=1,4 

DO  21  J  =  8 , 58 

IP (I .EQ.4)  SCALE=. 6 

21  CHLDBNC I , J, K )  =  PROB2 ( I , J-7 ) *POP( I , J  +  2,  K ) *SCA LL 
TYPE22 

22  FORMAT ( '  ENTER  ANNUAL  VALUE  OF  CHILDRENS  BENEFIT  ', 

+  'AND  YEAR  ST  DEGINS  ’,$) 

ACCEPTS, PAYIiNT, YR 
C 

C  THE  NEXT  SECTION  FIRST  CALOULTES  THE  1970  VALUE  OF 
C  ELICI3LE  CHILDREN  BY  TAKING  .75  OF  THE  1975  VALUE. 

C  THE  VALUES  IN  BETWEEN  THESE  YEARS  ARE  THEN  INTERPOLATED 
C  US  IMG  A  TWO  POINT  LAGRANGE AN  PROCEDURE. 

C 

DO  2  3  K  =  1 , 2 
DO  23  1=1,4 

23  CHLDBNC  1 ,  3,  IO=CHLDBIj(  !,  8,  K)*.  75 
DO  24  K=l, 2 

DO  2  4  1=1,4 
DO  24  J=4, 7 
Ji<=  J-3 

AJ=  C  (  5.  -JiO/5.  ) 

BJ=JK/5. 

24  CHLDBNC  I ,  J,iO=AJ*CHLDBN(  I,  5,  K  )  +  BJ*CIILDBN(  I,  S,  K) 

C 

C  THE  NEXT  SECTION  TOTALS  THE  NUMBER  OF  CHILDREN  ELIGIBLE 
C  TO  RECEIVE  BENEFITS  AND  THEN  CALCULATES  THE  ANNUAL 
C  COST  OF  THESE  BENEFITS  AND  ESCALATES  TIE  RESULTS  BY  THE 
C  APPROPRIATE  YEAR'S  PENSION  INDEX. 

C 

DO  2  5  K  =  l,  2 
DO  25  J=l, 58 
DO  25  1=2,4 

2  5  CHLDBNC 1, J, K ) =C!  1LDBMC 1, J, K )  + CHLDBNC I , J, K) 

I F  C  PAYMNT. EQ.  34  8.  )GO  TO  113  0 
^CJ^Yi^^NE.  300.  )  GO  TO  260 


1180  DO  1181  K=l, 2 
DO  113  2  J  =  1 , 6 

1132  CHLDBNC 1, J, K ) =CHLD  BN ( 1, J, K ) *300. * ( PN I ND ( J  +  2 ) /10  0 .  ) 
DO  1181  ,1  =  7,53 

1131  CHLDBNC  1,  J,  K)=CNLDDf!(  1,  J,K)*PAYMNT 
GO  TO  1270 
12  2  2  DO  2  6  K  =  l,  2 
DO  26  J=l, 58 

2 G  CM LDBN ( 1, J, K ) =CI ! LDBN ( 1, J, K ) *30 0 . * C  PN ! ND ( J  +  2 ) / 10 0 ) 


CO  TO  1270 
LOO  P= YR- 19  6  8 
DO  2  62  K=  1, 2 
DO  261  J  =  1, LOOP 

2b)  CHLDBNC  1,  J,  K)=CHLDUN(1,  J ,  K  )  * 3 0 0 .  *(P|il  NDC J+2  )/100  ) 

DO  26  2  J  =  LOO P+1,  58 

26  2  CM  LDBN  ( 1,  J,  K  )  =Cf  i  LDBN  C 1,  J,  K  )  *  PAYEU'T*  (  PN  I  HP  ( J+2  )/PN|  HP  C I  0 
1270  DO  27  J=l, 58 


o  n 
{ J  » 


+  3)) 


' 


* 


XXXI 


27  CMLDBN(2/  J,  1 )  =CHLDBf!(  1,  J/  1  )  +  CI!LD3IJ(  1,  J,  2) 
WR  I  IE  (  2  2,  28  )  ( OR  PHUfK  2,  J,  1),  J  =  l,  58) 
URITEC22,  28  )(Ci:LDBK(2/  J,  1),  J  =  l,  58) 

23  FORMAT ( 5  10 ( IX, 1PF10. 0) ) 

TYPE2G  3, F I LE ( IK+5) 

26  3  FORIiATC  OUTPUT  FILE  lo  5,A5,  ’.DAT') 

STOP 


xxxii 


C  VERSION  AS  OF  AUGUST  28,1972 
C  PROGRAMME  FUND. 9 

C  CANADA  PENSION  PLAN  --  FUND  CALCULATION'  PROGRAM 
C  WRITTEN  BY  HARRY  NEWTON.  MAY  1972. 

NEAL  MATURE, METREV, NETRV1,  NR CROW 
INTEGER  RECALL 

D I ;  IE NS  ION  STAB  LE ( 2 , 4 ) ,  R EG  I  0  N ( 12  ,  4 ) ,  CUR  PRC ( 2,  2 ) 


D I  MENS  I  ON  TOTAL ( 56 ) , X  I MFO(7),  I NFO( 7),  AMMI MT(60),AI ESPYC5G) 

DIME  NS  ION  FRAME  (  5  ),  RTMAM  (  5  ),  DBM/M  I  (  5  ),  WDNAf  K  5  ),  DSNAM  (  5  ),  WFNAM(  5  ) , 

*  CH NAM  (  5  ) ,  C Nf .'AM  (  5  ) ,  F  NO  UT  (  5  ) ,  TOT  I  MV  (  G  0  )  ,  MATUP.  F  (  5  G  ) ,  CRAT  E  (  5  G  ) 

D  I  f  IE  NS  ION  RTB  EM  (  5  6  ) ,  D I  IB  EH  (  5G  ) ,  E  RW I  P  (  5G  ) ,  F  RW I  P  (  5  C  ) ,  E  RDS  B  (  5  G  ) , 

*  F  RDS B  (  5  6  ) ,  WF  DS B  (  5 G  ) ,  0 R  P!  !Af i  (  5 6  ) ,  Cl  i  I  LD  (  56  ) ,  C  PPCN  (  5 G  ) ,  RAT E  (  5  6  ) 


DATA 

DATA 


CNN  AM/  1  RSCCN  5 ,  'MICCI!9,  9 RS PCI 


i  » 


Fi 


1  5 


PCM 
PRO  9 

:TRSP\  5  RTM  I  P 


IAME/  1  RSCUR  1 ,  5  Ml  CUP.9,  Vo 
DATA  R TWAIN /  9  RTR3C  9 ,  9  P.Tt  ISC*, 

DATA  DD NAM/ 9  UBR3C  9 ,  9  DDM I C 9 ,  9 DBRSP 1 , 

DATA  WD MAM/  9  RSCWL) 9 ,  'ill  CWD  9 ,  9  RS  PI  ID  9 , 

DATA  DS MAM/ 9 DSRSC 9 ,  *D3MIC,/ ’DSRSP9,  9  DSMI  P 


8  I 


s  t^  per: 9  / 

9  TXF PB 9 / 


9  DDM I P9, 


RTTF  P 9 / 
DETFP9/ 


9  Ml  FIND  9 ,  9  TF  PWD  9  / 


DATA  WFNAPI/  9  RSCWF  9 ,  I  CWF  9  , 
DATA  CM NAM/  *  RSCCH  9 ,  'MICCI!9, 
DATA  FMOUT/ 9  RSCFD 9 , 9 


9  RSPIjF  9,  9MI  PWF 
RS  PC! ! 


I  CFD 


.  8 


9rspfd9 


*m  pch  9 

9  Ml P^D9 


9  PSTF  P 9 / 
9TF  PWF  */ 
9  TF  PCI-’ 9  / 
bTFPFC9/ 


DATA 

DATA 


I  TAD,  I  PAGE, KURPRO/ 1, 0, 1/, C PRATE/ 3 .6/,  I  XAUI 
TOTI MV/383. 3, 764. 5, 718. 7, 818. , 56*0. / 


70/ 


DATA  ANN! NT/20. 9, 63. G, 111. , 171. 3, 56*0. / 


C NST 69/690600000. /,  RATE69/  1.  0737/, TOT6/0. /,  TOT7/2E 84500000 
TP.  GROW,  NRG ROW,  PROV/2*0.  ,  1.  / 

( (  CURPP.U(  l,J),J  =  l,  2),  !  =1,  2  )  /  9  CUR9,  5  RENT  9 ,  ’PROP9,  ’OWED8/ 


DATA 
DATA 
DATA 

DATA  ( ( STAB  LE  (  I ,  J  ),  J  =  l,4),  I  =1,  2)/'REAGO\ 
1  9 1  iQDER  * ,  9  ATE  I  9 ,  9  NF  LAT  * ,  9  I  ON  9  / 

DATA  ( C  REG  I  ON  C ! ,  J ), J  =  l, 4 ), 1 =1, 12)/'N£WFO 


MAPI 


C  8  t 

.  —  , 


TA! 


L  I  TY 


1/ 

0 

32 


h 

9  ICK9 
! 


12 

1001 
20  01 


10 


EDW9,  * ARD  I  9,  9  S LAND  9 ,  9  NOVA 
,  5,  9OUEBE\  5C\  2*  9 

*■  ’, ’SASKA9,  9  TCMEW 9 ,  9  AN  ", 

4  9  LUMP  I  9 ,  9  A  9 ,  9CANAD\  ?A9,  2*  9 
CALL  C LOCK  1 
TYPE  1001 

FORMAT ( /, 9  TYPE  IN  PLAN 
ACCEPT  2001, PLAN 
FORMAT ( A5 ) 

DO  10  1=1,5 

I F ( PLAN. EQ. FNAME( I ) )  GO  TO  11 

CONTI  HUE 
TYPE  1002, PLAN 


'SCOT 


9  ONTAR 9 
9,  9 ALBEu 
, ,CAMAD* 


B  f\  B 

,  9  IC^9,  2* 
R9, 'TA8, 2* 
9 A  LES9, 


UNC LA  9 ,  5  MP 
8  8  ! 

?  8 


P 


i  r 


8 


,  NEW' 

9  MAN  IT 

5  8  n 

5 

/ 


8 ,  9  PUN CM 
, 'OTA8, 


BRIT! 


e  m 

o  j  ; 


co 


CUE 


DEC'/ 


TO  DE  TESTED 


1002  FORMAT (/, 


ERRO 


-  NO 


PLAN  CALLED  9,A5) 


11 

15 

100  3 


INFLATION?  (Y  OR  M ) 

*  ) 

✓  V  ' 


GO  TO  12 
NF ! LE= I 

GO  TO  (13,  14,  13, 14,  15), NF I LE 
TYPE  1003 

FORMAT ( /,  9  IS  TXF  PB  PLAN  MODERATE 
*  ’(DEFAULT  IS  REASONABLE  STABILITY) 

ACCEPT  2002, ANSWER 

2  FORMAT (Al) 

I F( ANSWER. EQ. 9 Y9 )  GO  TO  14 

3  XSTAD= 1 

CALL  I F ! LE ( 2  9,  9  RS ! MT  9 ) 

CO  TO  16 
K8 TAB =2 

CALL  I  FI LE(29,  9  Ml  I  NT  9 ) 

TYPE  1004 

FORMAT ( /, 9  TYPE  IN  POPULATION  SEGMENT  USING  THESE 
16  X,  9 1  -  NF  LD;  2  -  PEI;  3  -  MS;  4  -  MB;  5  -  CUE;  6 

MAN;  8  -  SA5K;  9  -  ALTA;  10  -  BC;  11  -  CANADA; 

CANADA  LESS  CUE  (DEFAULT  IS  12) - *  $) 

ACCEPT  2003, IPO P 
2003  FORMAT ( 10G ) 

I F ( ! POP. LT. 1. OR.  I  POP. GT. 12)  I POP=12 
I F ( ! POP. EQ.G )PROV=. 55 
DO  1  1=1,4 

TOT  I  MV ( !  ) =TOT I NV ( I ) *PROV*10**6 


14 

16 

1004 


_o 


2  6X,  9  7  - 
36 X,  9 12  - 


/  //  li* 

-  OUT; 9 , /, 1H 

/,1H  , 


' 


. 


~i  o  o  o 


XXXI 11 


1  ANN  I  r IT (  I  )  =ANN  I  NT(  I  )*PROV*10**6 
CMST69=CNST63*PROV 
TOT7=TOT7*PROV 
TYPE  1017 

1017  FORMAT(/,  9  I  F  EXPENSES  EXCEED  REVENUE,  WHICH  LOAMS  WILL  BE  RE 

1  'LED?9,/,  *  (TYPE  -1  FOR  MOST  RECENT;  0  FOR  MORE;  1  FOR 

2  'EARLIEST):  s,$) 

ACCEPT  2003, RECALL 
TYPE  1016 

1016  FORMAT (/, 5  IN  THE  FOLLOW! MG  QUESTIONS,  TYPE  IN  ALL  RATIOS  AMO 

*  /, 9  PERCENTAGES  AS  NUMBERS  BETWEEN  0  AMD  l.5) 

TYPE  1005 

1005  FORMAT  (/,  1  TYPE  IN  YEAR 5  ’  S  BASIC  EXEMPTION  -  \C) 

ACCEPT  2003, YBE 
I F  ( YBE. LT. 1. )  YBE=YCE*109 
CALL  I F ! LE(2  9,  'OPSHM9 ) 

READ ( 29, 1006)  Dl, D2, D3, D4, CRATE 

1005  FORMAT ( G (/, 10G) ) 

TYPE  1007 

1007  FORMAT (/,  9  RETIREMENT  BELIEF ITS9,/, 1H  ,  19 ( 9  -  1 ), //, 1H  ,  'TYPE  ! 


1 1  REM  ENT  BENEFIT  RATIO,  AND  PERCENTAGE  0F9,/,1H  ,  'LOWEST  AER 
20RQP  OUT  — -  9,;) 

ACCEPT  2003, B EMRAT, AEROUT 


5  5 


A  C 

\  L. 


ROUT=AEROUT *  1 0  0 


TYPE  1015 

1015  FORMAT (/,  9  IS  THERE  AN  EARNINGS  TEST?  (Y  OR  I!)  -  »,*$) 


1 0  C 


.0  sr 


ACCEPT  2002, ERTEST 
TYPE  1003 

ORMATC/,  *  DISABILITY  3EMEF  I  To  9 , /,  1!!  ,  13(!-9)) 
TYPE  1009 


1C00  FORMAT ( /, 9  TYPE  IN  ANNUAL  FLAT  RATE  (IN  DOLLARS),  AMP  YEAR  IT 
*  ’BEGINS8,/,  UX,$) 

ACC E  PT  2  0 0 3, X  I HFO ( 1 ),  I KFQ ( 1 ) 

TYPE  1010 

1C  10  FORMAT (/, 9  TYPE  IN  PERCENTAGE  OF  BENEFIT  THAT  IS  EARN  I  MGS  PEL 

*9/,lH  ,  9  AMD  YEAR  IT  DEG  I  MS  ---  *,;) 

ACCEPT  2003, XI NFO(2 ), !MFO(2) 

XI NFO(2)=X! NFO(2)*100 
TYPE  1011 

1011  FORMAT  (  /  ,  9  CM  I  LDREN  9  9  S  BELIEF  ITS1,/,  IN  ,  19(  ’-'  )) 

TYPE  1009 

ACCEPT  2  0  0  3, X  I M F 0 ( 3 ) ,  I MFO( 3  ) 

TYPE  1012 

1012  FORMAT  (/,  9  WIVES"  BELIEF  ITS  9 ,/,  IN  ,15(9-9)) 

TYPE  1C 09 

ACC E FT  2  0 0 3, X I NF 0 ( 4 ) ,  I MFO ( 4 ) 

TYPE  1013 

1013  FORMAT(  /,  9  WIDOWS"  BEMEF  !  TS  9  ,  /  ,  1H  ,16(9-9)) 

TYPE  1009 

ACCEPT  2003, X! MFO ( 5 ),  I MFO(5) 

TYPE  1010 

ACCEPT  2003, X ! NFO(6 ), I MFO(6 ) 

X ! MFO ( 6 ) =X I MFO ( 6 ) *  10  0 
TYPE  1014 

1014  FORMAT  (/,  9  ORPHANS"  DEMEF  !  TC  9 , /,  IK  , 17C  '-*  )) 

TYPE  1009 

ACCEPT  2  !*0  3,  X  I  M  F  0  (  7  ) ..  !  NFO(7) 


PE AO- IN  SECTION. 


L 
O 


D  1 ,  D  2 ,  D  3 ,  D  4  ARE  DUMMY  VAR!  ARLES  USED  TP  cT'ORF  DATA  Fn  R  Y  E  *  R  S 
PRIOR  TO  1970. 


READ  IN  EFFECTIVE  ANNUAL  RATE  OF  INTEREST  Of!  NEW  I  i  iVFST iTNTo . 
READ ( 29, 2003)  RATE 
C  DEAL)  IN  TOTAL  CONTRIBUTIONS. 

CALL  I  FI LE ( 2 9, CNMAI 1  ( NF !  LE)) 

REAR (29,  2  0  04  )  01,02,03,04, CP PC N 
2024  FORMAT(5G) 


o  o  c_  . 


xxxiv 


C  IE  AD  !  N  RET  I  REM ENT  BEMEF  I  TS  . 

C/'LL  I  FI  LE(  29,  RTNAM(  I  IF  !  LE) ) 

REAP (29,  2  004  )  RTF  El! 

C  READ  I!’  DEATH  BENEFITS. 

CALL  I  FI  LE(  29  /  PBNAM  ( NF  I  LE)  ) 

READ (29/  2004)  DM  BEN 

C  READ  IM  WIDOWS'  BENEFITS  --  EARN  I  NCO  RELATED  ADD 
CALL  IF!  LE(29,WnNA.M(NF!  LE) ) 

READ  (29/  2005)  01/  02,  ERL' I  D,  03/  P4, FRWI  P 
2005  FORM AT (80) 


F  LA 


RAT 


r 
■  / 


READ  I  !!  D  I  SAD  I  L  I  TY  BELIEF  I  TS 


EARNINGS  RELATED  ANn  FLAT  TATE. 


CALL  I  FI  LE  ( 2  9,  PS  PA!  I  (  NF  !  LE)) 

READ (2 0, 2003)  EROS 8 
READ (29, 2003)  FRDSB 
C  READ  IN  WIVES'  BENEFITS. 

CALL  I  FI  LE  ( 29 ,  WFNAM  ( IIF  I  LE)  ) 

READ (29, 2003)  WFDSB 

C  READ  IN  CHILDREN'S  AND  ORPHANS'  BENEFITS. 


CALL  I  FI LE(29, CHMALK NF I LE) ) 
READ(29, 2003)  D1,D2, ORPHAN 
R EAD (29,  2003)  Dl, D2, CHI LP 


OUTPUT  SECTION. 


300  CALL  OF  I LE (2 8, FNOUT( NF I LE ) ) 

CALL  Tl ME(TCLOCK) 

CALL  TDATE (  LDAY,  Li  10 NT! j,  LYEAR) 

I F (NF I LE.GT. 2)  KURPRO=2 

WRI TE(28, 4016)  LDAY, LMONTH, LYEAR, TCLUCK 

'/RITE  (2  8,  4  0  09  )  (STAB  LE  ( KSTAB,  J  ),  J  =  l,  4  ),  (CUR  PRO  (  KURPRO,  J  ),  J  =  l,  2  ), 

*  ( REG  I  ON(  I  POP,  J  ),  0  =  1,  4  ) 

I F ( NF I LE. EO. 5)  WRITE(28, 4020) 

I F(YBE. LT. 100. )  GO  TO  301 
WRITE (2 3, 4 010)  YBE 
GO  TO  302 

301  WRI TE(28, 4011)  YBE 

302  WRI TE(28, 4012)  CMRATE, I STCMR 
WRITE (2 8, 4023) 

WRI TE(28, 4013)  BE NR AT, AEROUT 
ERTST= ' YES ' 

I F ( ERTEST. EQ. ' N ' )  ERTST= ' MO ' 

WRITE (2 8, 4018)  ERTST 
WR I TE ( 2  8,  1008  ) 

WRITE (2 8, 4 014)  XINFO(l), 1 NFO(l) 

WR I TE ( 2 8,  4015 )  XINFO(2), I NFO(2) 

WR I TE ( 2  8, 1011) 

WR I TE ( 28, 4014)  XI MFO(3), I NFO(3) 

vm  I TE ( 2  8/ 1012) 

Xl  MPOC4  J,  I  t!FO(4) 

WRITE (2 8, 4 014)  XI NFO(5), I NFO(5) 

WRITE (2 8, 4015)  X! NFO(6), I MFO(6) 

WRITE (2 8, 1014) 

WR  ITE(28,4014  )  X!  NFO(7),  I  f !  F  0  (  7 ) 

WRITE (2 8, 4019) 

DO  400  1=1, 56 
I  YEAR® I +1969 

I F( I . EO. l.QR. I . EO. 29)  GO  TO  401 
GO  TO  402 

401  I PAGE=I PAGE+1 
WRI TE( 2 8, 4017) 

WR I TE ( 2 8,  4005)  I  TAB, LDAY, LMONTH, LYEAR, TCLOCK,  I PAOF 
WRITE (2 8, 4004) 

WRI TE( 2 8, 4003)  (STABLE (KSTAB, J ), J=l, 4 ), ( CUR PRO ( KURPRO, J),J=1, 2), 

*  ( REG |  ON ( I  POP,  J  ),  J  =  l,  4 ) 

I F ( I ! F I LE. EQ. 5)  WRI TE(28,  4020) 

WRITE (2 8, 4000) 

402  EXPENG  = . 001*CPPCN( I  )/CRATE( I  ) 

TOTAL ( I  ) =RTBEN ( I  )  +  FRDSB( I )  +  ERDSB( I  )  +  CNI  LD  ( I  )  +  WFDSB( I  )  +  FRWI D( I )  + 

*  ERW!D(  I  )  +  ORPHAN(  I  )  +  DHBEi!(  I  )+EXPFNS 
I F (MOD ( I , 4 ) . EQ. 1 )  WR I TE (2 8,  40  02  ) 


XXXV 


400  WRITE (2 8,4001) 

*  FRWID(I), 


I  YEAR,  RTBENC  !  ),  FRO SBC  I  ),  ERPSBC  I  )/  CM!  LP(  !  ) 
ERW!  D(  !  ),  ORPHAN  (  !  ) ,  D  U  B  E M (  I  ),  E X P E : ! S /  TOTAL ( 


! TAB =2 
! PAGE=0 
DO  500  1=1,50 


!  YEAF<= !  +1909 

I  F(  I  .  Ell.  l.OR.  !  .  EQ.  29)  GO  TO  501 
GO  TO  502 
501  I  F'AGE=  I  PAGE+1 
UR! TEC 2 8,  4  017) 

l.’RI  TEC2  8,  4005)  I  TAB,  LDAY,  Lt  !ONTi !,  LYEAR,  TCLOC 
WRITE (2 8,  4  008  ) 

UR  I TE ( 2  8,  4  0  0  3  )  ( STAB LE ( XSTAC, J ) ,  J  =  1,  4 ) ,  ( CUR 
( FIERI  ON  (  I  POP,  J),  J  =  l,  4) 
i  FCIFI  LE.  EC!.  5)  WR  I  TEC  2  8,  4020  ) 

•/RITE  (2  8,  4  0  00  ) 


X, I  PAGE 

PRO  C  TUP  PRO, J  ) 


502  I RECAL= I +4 


! FC RECALL. EQ. 1)  I RECAL=1 
A! ESPYC I )=ANNI PTC  1+3) 

IFCI.GT.17)  Al  ESPYC  I  )=A!  ESPYC  I  )  —  A I !  I :  I  f  IT  (  1  —  17) 
i  1  /\7UR EC  ■  )  =  0 . 

! F ( I . CT . 1 6 )  MATU R  E ( I  ) =TO T I  f ! V ( I  -  15 ) 

504  TOT  I  MV  (  I  +  4  )  =  C P P C 1 3 (  I  )+AI  ESPYC  I  )+i  :ATURE  (  I  )-TOTAL( !  ) 
I FCTOTI NVC I +4). GT. 0. .OR. RECALL. EO. 0)  GO  TO  503 
I  REGAL- ! RECAL+ RECALL 

I  FC  I  RECAL.C-iT.  ( I  +3).  OR..  I  REGAL.  LT.  1)  GO  TO  503 
MATURE (  !  )  =!  1ATURE (  !  )+TOT! NVC  I  REGAL) 

TOT  I  MV C ! REGAL )=Q. 


GO  TO  504 


503  TOT6=TOT6+i  iATUREC  I  ) 

TOT 7  =  TOT 7+ TOT  I  MVC 1+4) 

X I MT  =  TOT I  MV ( ! +  4 ) *RATE ( I  ) / 1 0  0 . 

AMU  I  MIC  !  +  4  )  =ANN  I  NT ( !  +3)  +  XI  “!T 
00 L12=TOT7~TOT6 
AD  J 13  =A!-.:M  I  i’TC  1+4) 

!  FC  I  .CT.  16)  ADJ13=ADJ13-AM!!I  NTC  I -16) 
CO  L 1 3  =  CO  L 1 2  +  .  2  5  *A  P  U 1 3 


C  0  L 1 4  =  C  N  S  T  6  9  *  R  A  T  E  6  9  *  *  1 

CO  L 1 5  = . 1 2  5 *  C  CO  L 1 4  +  TO TA L ( I  )-CPPCi  ( !  ) ) 

FU!1P  =  C0  LI  3  +  CO  LI 5 

I  FCFUliF’.  LT.  0.  .  AMD.  I  XAUST.  EC.  0)  Ul:  I  TEC28,  4922  )  I  YEAR 
I  F  ( FUI!D.  LT.  0.  )  I  XAUST=1 
I  FCFUND.  LT.  0.  )  FUf!P=0. 

I  FC  I  .CT.  1C)  TOT  I  MVC  1-10=0. 

I  F  ( MOL)  (  1 , 4  ) .  EQ.  1 )  UR  I  TE  ( 2  8,  4  0 0  2  ) 

500  1/P. I  TEC 2 8,  4007  )  I  YEAR,  CPPCMC  I  ), TOTALC  I  ),  FUND 
I  TAB  =  3 
I PAGE=0 
DO  GOO  1=1,56 
I  YF.AR=!  +1969 

I FC I .EQ. l.OR. I .EC. 29)  CO  TO  601 
GO  TO  602 


6  Cl  I PAGE=! PAGE+1 
UR  I  TEC  2 8,  4  017) 

UR  I  TEC 2  8,  4005)  I  TAB,  LDAY,  L  IONT! !,  LYEAR,  TCLOCK,  I  PACE 
WR  I  TEC  2 8,  4  024  ) 

WR  I T  E (  2  8,  4  0  0  3 )  ( STAB  LE ( KSTAB,  J ) ,  0  =  1,  4 ) ,  ( CUR  PRO  C TUP  PRO, J ) 

*  (REG! OUC I  POP,  J ),  J  =  l,  4 ) 

I F CNF  I LE. EQ. 5)  WU I TE C 2 8,  4 02 0  ) 

WR! TEC28, 4025) 

3)2  TOTREV=CPPCM( ! )+AI ESPYC I )+MATURE( ! ) 

i:etrev=totrev-totalc  i  ) 

I FC I . EQ. 1)  GO  TO  603 

7RGR0W=  ( TOTRF. V-TOTR VI )  *100.  /ACS  (  T 0 T R V 1 ) 

MRGROU= C  NETREV-NETRV1 ) *100 . /APS C  METRV1 ) 

603  70TRVl=T0TRcV 
NET  RVl  =  i  !ETREV 

I F (MOD ( I , 4). EQ. 1)  WR! TEC28, 4002) 

COO  URITEC  2  8,  4026  )  I  YEAR, C PPCN ( I  ),AI ESPYC !  ), MATURE ( I  ),TCTREV 

*  TOTALC  I  ),  NETREV,  NUGROlB 


, UFDSP ( I  ), 
!  ) 


0  =  1,2), 


J  =  1,  2), 


T!  GROG, 


XXXVI 


WP.I TEC  2 8, 4017) 

T=CLOCK( 0/ 0 ) *  G  0 . 

TYPE  4  02 1,  FNOUT ( fIF  I  LE),T 

4000  FORMAT  (  /,  2  5X^  * - - D  I  FACILITY  PLEiiS  I  OHS - -  W I  NORM  8 8  PF 

IMS  I  ONS  25X,  f  EXPEfiS  ES8,/,  *  CALENDAR  RET  I  REM ENT  1 ,  G  IX,  *0!  ?!A.!GM 

2  DEATH1,  8X,  ’OF *,/,  1H  ,  2X,  8YEAR5,6X,  ’PENS!  ONS  FLAT  EAT.  HI  MGS 
3 8  CHILDREN8 8S  WIVES88  FLAT  EARNINGS  BENEFITS  BENEFITS8 

4 ,  3 X,  ?  AD! !  I  N I S- 8 , 5 X,  1  TOT  AL  8  ,  /  ,  1 H  ,  2  4X,  8  RATE  RELATE!''  BENEFITS* 

5, 3X,  8  PENSIONS  RATE  RELATED  8 , 2 EX,  1 TRAT I ON 8 ) 

40  01  FORMAT ( 1H  , 2X,  14,6 X, -GPF7. 1,  2  (3X, -6PF6 . 1 ), 2(5X, -GPFG. 1), 3X, -GPFC. 1 

*  ,  2X,  -CPF 8.  1,  5X,  3  ( -  6 PF 7.  1,  4 X  ),  - 6 PF8  .  1 ) 

4002  FORMAT ( 2 X ) 

4003  FORMAT ( /, IX, 4A5, IX, 2A4, 8  PLAN  8 , T8 5,  5  REG  I  ON :  !,4A5) 

4004  FORMAT (  /, 4 IX,  8  CANADA  PENSION  PLAN5,/, IN  , 30X,  'BENEFITS  AMP  EXRrH 

IS  ES  OF  ADMINISTRATION8,/, 1H  ,  3  2X,  5  (ALL  FIGURES  IN  MILLIONS  op  DOLL 
2  A  R  S  )  8  ) 

4005  FORMAT  (INI,  1  TABLE  NO .  8 ,  I  2,  20X,  8  RUN  DATED’,  13,  V',  12,  ’/»,  I2,3X, 

*  ’TIME:  8 , A 5 , 2 0 X,  ’PAGE8,  12,  8  OF  2s) 

4Q00  FORMAT ( /,  5  CALENDAR  8 , 7X,  8 COUTR I  BUT  I ONS 5 , 8X,  ’BENEFITS  &*,S X, 

*  8  FUND  AT8,/,8  YEAR8,  31X,  *  EXPENSES ’,  9X,  ’YEAR  END  5  ) 

4007  FORMAT (IN  ,  2X,  I 4,9X,  -6PF11. 1, SX,  -6PF11. 1, GX, -CPFll. 1) 

4008  FORMAT (/, 41X,  ’CANADA  PENSION  PLAN8,/, IN  , 4 IX,  *  FUND  PROJECTIONS8, 

*  / , 1H  , 32X, ’ (ALL  FIGURES  IM  MILLIONS  OF  DOLLARS)5) 

4009  FORI  :AT  (  /,  5  CANADA  PENSION  PLAN-,/,  111  ,  8  SCHEME  :  8,  4A5,  IX, 

12A4  ,  8  PLAN8,/,  IN  ,  'REGION:  *,4A5,//,1M  ,  ’  AS3U:  !PT  I  ONS  EOT 

2  THIS  SCHEME  8  ) 

4  010 ’FORMAT (/, ’  YEAR  8  8  S  SASIC  EXEMPTION  IS  ’, F6. 0,  ’  DOLLARS’) 

4011  FORMAT  (/,  8  YEAR 8  8  S  BASIC  EXEMPTION  IS’,FG.  1,  *  PEI'  CENT8  ) 

4012  FORMAT  (IN  ,  ’TOTAL  CONTRIBUTION  RATE  IS  ’,  F6. 2,  ’  PER.  CENT,  B  EH  I  f"!  M  \'r 
*C  I  N  8 , I  5  ) 

4013  FORMAT (  /,  5  RETIREMENT  BENEFIT  RATIO 
*F  LOWEST  AER”S  TO  DROP  OUT  IS  *,F5.  1 

4314  FORMAT (/,  8  ANNUAL  FLAT  RATE  IS  s,FG.O 

*  15) 

4015  FORMAT (1M  , ’PERCENTAGE  OF  BENEFIT  TNA 

*  F  5 , 1,  9  PER  CEIH ,  B  EG,  I  fSN  I  NG  I  N 8 ,  I  5  ) 

4015  FORMAT (1111,  ’RUN  DATED  8,  13,  '/’,  12,  ’/’,  !  2,  3X,  ’TIME: 

*  OF  1 8 ) 

4  317  FORMAT (  /, 8  TABLES  PREPARED  BY  TAX AT ! ON  AND  FISCAL  POLICY 

MMrMJ  '12X''A::r  "!TE!:G0VEI 

40 1C  FORMAT  (II!  ,  '  EAR,  II  DCS  TEST?  -  *,  A3) 

4013  FORMAT (//, 2X) 


1  b 

0 

F  6 .  3, 

// 

i 

H  ,' PERCENTAGE 

8 

& 

PE 

i,  CEN 

;T  5 

) 

9 

DO 

LLAN.S 

'  / 

3 

EU  HN  I  : 

:r  in’. 

T  ! 

1  S 

EARN  I NG 

r 

O 

RTLATf. 

is  5, 

1  2, 

3X 

,  ’Til 

,L  i 

I  A  5  7 

AX,  5  PARC 

1  i 


■  f 

E!  TAL 


2  D  for;  .AT (11 '  +  ,  35X,  8  -  TXF  Pr  PROPOSALS  8  ) 

4021  FORMAT  (//,  '  END  OF  RUM8,//,8  Ob'l  IT  FILE  IS  8 ,  A5,  8  . :  A  T  1 , //, 
*  8  EXFCJTICH  TIME  =  !,F8.3,  5  SECOMPo ' , /// ) 


4  0  2  2  FORMAT (/,  IX,  16,  15X,  *****  CPP  FUND  I  S  EXHAUSTED  ****') 

4C2  3  FORM,  AT  (  /  ,  8  RETIREMENT  BENEFITS8,/,  1!!  ,1C('-')) 

4024  FOR!  iAT  (  /  ,  4 IX,  ’CANADA  PENSION  PLAN8,/,  IN'  ,  40X,  ’REVENUE  PRO.i.;- 

*  , / ,  HI  , 32X,  8 (ALL  FIGURES  IN  MILLIONS  OF  DOLLARS)8) 

4  525  FORMAT ( /,  8  CALENDAR  CONTRI  PUT  I  ONS  I  NTERECT  LOAM8 ,  GX, 

1  ’TOTAL  REVENUE  GROWTH  IM  BENEFITS  h  NET  REYEN'T  8 , 4X, 

2  8  GROWTH  I  I! 8 ,  / ,  3X,  ’YEAR.8,  32  X,  ’REPAYMENTS8,  1P.X,  §T'»TM  R~Vr'  U':? 

3  4  X , 8  EXPENSES  8 / 18X,  8  NET  REVENUE8,/, 72 X,  ’(%)', 39 X,  '  (1)  8  ) 

4 C  2 5  cORi -  AT ( 1H  ,  I  G,  5X,  -C  PF  11.  1,  2(3X,-CPF9.  1 ) ,  5X,  -  6  PF  11 .  1 ,  C  X,  1  Pr  7 .  1, 

*  2X, 2 ( 3  X , -GPF11. 1), GX, 0PF7. 1) 

STOP 


!  r 


1. 


xxxvii 


VERSION  AS  OF  AUGUST  17,1072 
PROC'RA!  :«'!£  CP  PDF'.  1 0 

REAL  Yf !  I  NC  ( 6  0 ) ,  R  ET3  H  (60),  W I  POV'C  60 ) ,  V/l  PFLTC  CO),  WI  nEPflC  6^  ) 
REAL  LJ 1  Pof : (60  ),  D  I  SACK  60),  D  !  Si; I  F C 6 0  ),  MATUR (  6 0  ) ,  D  I  SFI  T(  GO) 
REAL  D  I  SERNC  6  0 ),  CHLDBH ( 6  0  ),  YR  (  6  0  ) ,  CPI  (120),  PAS  (00),GI5(0Q) 


./  •  o,  50*1.  / 


RATA  i lATUR/0 .  0,  .  1,  .  2,  .  3,  .  4,  .  5,  .  6,  .  7,  . 

ATA  CPI / 6 *  1 . 0,  1. 036,  1.  034,  1.  052,  51*1.  03,  5*1. , 1 1  028,  1.  022,  1.  01 
K51*1.01/  7  ‘ 


100 


TCP 
JL  ^  w 


101 

151 
10  2 

103 

104 

105 

i  n  5 


CALL  OF  I LE ( 2 9,  ' BENFT ’ ) 

TYPE  100 

FORMAT  (  ’  SPECIFY  PLAN  TC  BE  TFSTFP : 

ACCEPT  150, F NAME 
FORMAT (A5) 

TYFE  101 

FOPf  :AT(  ’  SPECIFY  PENSIONER'S  LIFETIME  AVERAGE  EAPf ;  I  MGS  RATIO: 

‘ACCEPT  151, AER 
FORMAT ( G) 

TYPE  102 

FORMAT ( 1  SPECIFY  CEILING  OM  PENSION  INPFX  If!  ln73  ET  Srr  .  «  * \ 
ACCEPT  151,  CE I  LMG  '  ‘  7 

TYPE  103 

FORMAT ( '  SPECIFY  RETIREMENT  RATE:  *,$) 

ACCEPT  151, RETRT 
TYPE  104 

FORMAT (  1  SPECIFY  WIDOW'S  MONTI'IY  FIAT  RATE  IN  1973  -  5  ) 

ACCEFT  151,W!DFLT(8)  "  ' 

TYPE  105 

FORMAT ( '  SPECIFY  WIDOW'S  EARNINGS  REIATFR  RATIO-  •  s) 

ACCEPT  151,  W I  ORT  ’  '  7 

TYPE  196 

FORMATC'  SPECIFY  ORPHAN1  'G  MONTHLY  FLAT  RATE  IN  1^73-  5  ) 

ACCEPT  151, CHLD3HC8)  "  '  *  ' 

TYPE  107 

107  FORMATC  SPECIFY  DISABILITY  MONTHLY  FLAT  RATE  IN  1673-  * 

)  ' 

ACCEPT  151/DISFLTC8) 

TYPE  108 

c  ioLCR|,,?T^  !  B  PEC  I  F  Y  DISABILITY  EARNINGS  RELATED  RATIO  IN  13  73  ET  5 

ACCEPT  151/DISRT 
TYPE  109 

FORMATC  SPECIFY  MONTHLY  BENEFIT  FOR  WIFE  OF  DISABLED  IN  1973: 

'  /  7  ) 

ACCEPT  151, D I  SMI F(8 ) 

CALL  I F! LE( 20, FRAME) 

READ  (  2  0,  110)  ( YMPE  (  J  ),  9  =  1,  6  0  ) 

110  FORMAT ( 100 ) 

DO  2  00  J  =8, 6  Q 

?  RET3N(iI  )=RETRT*AER*MATUR(  J  )  *(  (  YMPE  (9  )  +  YM PEC  J-l )  +  YMPE  (9-2  )  )/3.  )/ j 

y I DERM ( J ) =y I D RT* ( R FTP H (0 ) * ( 1 . /MATUR ( J )  ) ) 

D 1 SERN( J ) =D I SRT*(RETDN( J ) * ( 1. /MATUR ( j  )  )  ) 

Li !  PSf  i  ( J  )  = .  1  *  Y I .  P  E  ( 9  ) 

DO  210  0=9, CO 

y  I BF  LTC  9  )  =i; !  OF LT(  J-  1 )  *CE  I  LNG 
D I SFLT( J )=D I SFLT( J- 1 ) *CF I LNG 
CHLDBN(J)=CHLD3M(J-l)*CEILfJ  G 

L)  I  3W 1  F  ( J  )  =R  I  SW I  F  ( -J-  1 )  *C  E  I  LNG 
C  DC  215  9=9,6 0 
C215  CHLCBMC J ) =29 . 

DO  220  9=8,00 

u !  coy  (J)=I,IDE  RN  ( J  )  +  l-f  I  D  F  LT  ( J  ) 

B  I  SAB L  ( 9 ) =P  I  SEPM («J  )  +  D  I  SFLTC  9 ) 

DC  230  9=1, SO 
YR(  J  )  =  19b5  +  .J 


1C  8 


109 


2  00 


210 


O  9  0 


o  *7  n 
J  j 


99  =  0 


'^■^ML.  EQ.  ’  BSCUR  1 . 0  R ,  FfJAME.  EO.  1  Rs  PRO  1  )  99  =  60 

r  !  S ( 7 ) =6  7 . 12 
no  240  9=8,60 


xxxviii 


OAS  (  0  )  =0  A  J  (  J-  1 )  *C  P I  ( J- 1+  J  J  ) 

2 4C  G ! 5 ( J ) =G I S ( J- 1) *CP! ( J- 1+ J J  ) 


1  '  p  | 

»  V  l  •  i 


'2(2  2/  298)  FMAME,  AER/  CEI  LHG,  RETRT 


298  FORNAT(  '  PLAN  :  ',A5/5X,  *  AER:  ',F4. 2/  5X,  1  PENSION  !  HD  EX  5 , 
h  '  CEILING:  '/F4.2/5X/1  RETI  REMEilT  RATE :  ’^4.2,/) 

I ; ;  •  I  T Z  (  2  9  /  2  9  9  )  W I  D RT,  D  !  SR! 

222  FORMATC  WIDOW'S  EARNINGS  RELATED  RATIO:  '/F5.3,5X/5  DlW, 


390 


,>  t;  i 


30: 


303 


304 


?  1 0 
350 


A'AB I L! TY  EARN  1  MGS 

RELATED 

RATIO:  5/F4o2,//) 

WR 1 TE ( 29/ 300) 

FORMAT (  ' 

MAXI  MUM, 

MAXI  MUM 

MAXI  MU' 

CM 

MAXIMUM 

MAXI  MU! ;  MCi.TMl  Y 

MAXIMUM  f 

UNT! ’L Y 3  ) 

WR 1 TE( 29/ 301) 

FORI  1AT (  s 

YEAR' 'S 

MAXIMUM  NONTNLY 

MONTHLY 

l  ICN'T'  ‘  L  ' 

"t '  Y  MAXIMUM 

MONTHLY 

PENSION  TO 

PENS  I  ON 

TO  5  ) 

A  5 


WRITE (29/ 302) 

FORMATC  year  of  pensionable 
'  '  fS  LUMP  SUM)  1)1  SABI  L  I  TY 
MONTHLY  '  ) 

WRITE (29/ 303) 

FORMATC  PENSION!  EARNINGS 
A  '  f!  PAYMENT  PENSION 

O.A.S.  G.I.S.') 

WRITE (29/ 304) 

FORMATC - -  - 

r*.  ! _  _  _ _  _ 


RET!  REM, ENT 
Wl FE  OF 


,o  I  ON 
PI  SAP  LEO 


WIDOW'  'S  ORPHAN' , 
CHILE  OF ' 


PENS  I  ON  PENS  !  ^  8 
PI  SAD  LED5/ 


A  ’ 


i  ^ 


DO  350  <J  =8/6  0 

WR  I  TE  ( 2  9/  3 1 0 )  YR  ( J  ) ,  YM  PE(J),RET&N(  J  )  /  V/ 1  DOW  ( J )  /  CM  LE  p  r.(J),  U !  PS!  U  0  ) 
A, D I  SAB  L( J )/  D I SWI F  (  J  ) , CHLDBfK  J ), OAS ( J ), G! S ( J  ) 

FORMAT ( 2X/ F 5 . 0/ 5X, F7. 0,  7X, F7. 2,  5X/  F7. 2t  4X7 F6. 2,  5X, FG. 0/  5X,  F7. 2/ 

A 8 X / F 6 . 2 , 12 X/ F6. 2,  7X/F6.2  /  2 X ,  F 6 .  2) 

CO  NT  I  MU'  E 
STOP 
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4661  Treasury,  Economics  and 

.057  Intergovernmental  Affairs, 

no. 6  Taxation  and  Fiscal  Policy 

Branch. 

PENSIM,  Canada  Pension 
Plan  Simulation  Model. 


